setgirlsit.bas

传奇网吧伴侣源码

Attribute VB_Name = "SetGirlSit"
Option Explicit

Public Function SetGirlSitPoint(SitID As Long)
Select Case SitID

Case 1
lpPoint(0).X = 12
lpPoint(0).Y = 27
lpPoint(1).X = 12
lpPoint(1).Y = 29
lpPoint(2).X = 13
lpPoint(2).Y = 26
lpPoint(3).X = 13
lpPoint(3).Y = 30
lpPoint(4).X = 14
lpPoint(4).Y = 25
lpPoint(5).X = 14
lpPoint(5).Y = 31
lpPoint(6).X = 15
lpPoint(6).Y = 24
lpPoint(7).X = 15
lpPoint(7).Y = 32
lpPoint(8).X = 16
lpPoint(8).Y = 19
lpPoint(9).X = 16
lpPoint(9).Y = 20
lpPoint(10).X = 16
lpPoint(10).Y = 24
lpPoint(11).X = 16
lpPoint(11).Y = 33
lpPoint(12).X = 16
lpPoint(12).Y = 38
lpPoint(13).X = 16
lpPoint(13).Y = 42
lpPoint(14).X = 17
lpPoint(14).Y = 18
lpPoint(15).X = 17
lpPoint(15).Y = 21
lpPoint(16).X = 17
lpPoint(16).Y = 23
lpPoint(17).X = 17
lpPoint(17).Y = 34
lpPoint(18).X = 17
lpPoint(18).Y = 37
lpPoint(19).X = 17
lpPoint(19).Y = 43
lpPoint(20).X = 17
lpPoint(20).Y = 44
lpPoint(21).X = 17
lpPoint(21).Y = 51
lpPoint(22).X = 17
lpPoint(22).Y = 61
lpPoint(23).X = 17
lpPoint(23).Y = 63
lpPoint(24).X = 18
lpPoint(24).Y = 18
lpPoint(25).X = 18
lpPoint(25).Y = 22
lpPoint(26).X = 18
lpPoint(26).Y = 23
lpPoint(27).X = 18
lpPoint(27).Y = 53
lpPoint(28).X = 18
lpPoint(28).Y = 61
lpPoint(29).X = 18
lpPoint(29).Y = 64
lpPoint(30).X = 19
lpPoint(30).Y = 18
lpPoint(31).X = 19
lpPoint(31).Y = 55
lpPoint(32).X = 19
lpPoint(32).Y = 59
lpPoint(33).X = 19
lpPoint(33).Y = 64
lpPoint(34).X = 19
lpPoint(34).Y = 76
lpPoint(35).X = 19
lpPoint(35).Y = 77
lpPoint(36).X = 20
lpPoint(36).Y = 18
lpPoint(37).X = 20
lpPoint(37).Y = 49
lpPoint(38).X = 20
lpPoint(38).Y = 56
lpPoint(39).X = 20
lpPoint(39).Y = 63
lpPoint(40).X = 20
lpPoint(40).Y = 75
lpPoint(41).X = 20
lpPoint(41).Y = 77
lpPoint(42).X = 21
lpPoint(42).Y = 18
lpPoint(43).X = 21
lpPoint(43).Y = 47
lpPoint(44).X = 21
lpPoint(44).Y = 53
lpPoint(45).X = 21
lpPoint(45).Y = 65
lpPoint(46).X = 21
lpPoint(46).Y = 66
lpPoint(47).X = 21
lpPoint(47).Y = 76
lpPoint(48).X = 22
lpPoint(48).Y = 17
lpPoint(49).X = 22
lpPoint(49).Y = 77
lpPoint(50).X = 23
lpPoint(50).Y = 17
lpPoint(51).X = 23
lpPoint(51).Y = 68
lpPoint(52).X = 23
lpPoint(52).Y = 73
lpPoint(53).X = 23
lpPoint(53).Y = 77
lpPoint(54).X = 24
lpPoint(54).Y = 17
lpPoint(55).X = 24
lpPoint(55).Y = 77
lpPoint(56).X = 25
lpPoint(56).Y = 18
lpPoint(57).X = 25
lpPoint(57).Y = 78
lpPoint(58).X = 26
lpPoint(58).Y = 17
lpPoint(59).X = 26
lpPoint(59).Y = 78
lpPoint(60).X = 27
lpPoint(60).Y = 17
lpPoint(61).X = 27
lpPoint(61).Y = 78
lpPoint(62).X = 28
lpPoint(62).Y = 16
lpPoint(63).X = 28
lpPoint(63).Y = 78
lpPoint(64).X = 29
lpPoint(64).Y = 16
lpPoint(65).X = 29
lpPoint(65).Y = 78
lpPoint(66).X = 30
lpPoint(66).Y = 16
lpPoint(67).X = 30
lpPoint(67).Y = 66
lpPoint(68).X = 30
lpPoint(68).Y = 70
lpPoint(69).X = 30
lpPoint(69).Y = 77
lpPoint(70).X = 31
lpPoint(70).Y = 16
lpPoint(71).X = 31
lpPoint(71).Y = 66
lpPoint(72).X = 31
lpPoint(72).Y = 71
lpPoint(73).X = 31
lpPoint(73).Y = 75
lpPoint(74).X = 32
lpPoint(74).Y = 16
lpPoint(75).X = 32
lpPoint(75).Y = 66
lpPoint(76).X = 33
lpPoint(76).Y = 16
lpPoint(77).X = 33
lpPoint(77).Y = 66
lpPoint(78).X = 34
lpPoint(78).Y = 16
lpPoint(79).X = 34
lpPoint(79).Y = 66
lpPoint(80).X = 35
lpPoint(80).Y = 16
lpPoint(81).X = 35
lpPoint(81).Y = 55
lpPoint(82).X = 35
lpPoint(82).Y = 56
lpPoint(83).X = 35
lpPoint(83).Y = 65
lpPoint(84).X = 36
lpPoint(84).Y = 16
lpPoint(85).X = 36
lpPoint(85).Y = 41
lpPoint(86).X = 36
lpPoint(86).Y = 43
lpPoint(87).X = 36
lpPoint(87).Y = 54
lpPoint(88).X = 36
lpPoint(88).Y = 58
lpPoint(89).X = 36
lpPoint(89).Y = 75
lpPoint(90).X = 37
lpPoint(90).Y = 17
lpPoint(91).X = 37
lpPoint(91).Y = 40
lpPoint(92).X = 37
lpPoint(92).Y = 42
lpPoint(93).X = 37
lpPoint(93).Y = 58
lpPoint(94).X = 37
lpPoint(94).Y = 62
lpPoint(95).X = 37
lpPoint(95).Y = 76
lpPoint(96).X = 38
lpPoint(96).Y = 17
lpPoint(97).X = 38
lpPoint(97).Y = 40
lpPoint(98).X = 38
lpPoint(98).Y = 42
lpPoint(99).X = 38
lpPoint(99).Y = 64
lpPoint(100).X = 38
lpPoint(100).Y = 75
lpPoint(101).X = 38
lpPoint(101).Y = 77
lpPoint(102).X = 39
lpPoint(102).Y = 18
lpPoint(103).X = 39
lpPoint(103).Y = 39
lpPoint(104).X = 39
lpPoint(104).Y = 41
lpPoint(105).X = 39
lpPoint(105).Y = 64
lpPoint(106).X = 39
lpPoint(106).Y = 76
lpPoint(107).X = 39
lpPoint(107).Y = 77
lpPoint(108).X = 40
lpPoint(108).Y = 17
lpPoint(109).X = 40
lpPoint(109).Y = 38
lpPoint(110).X = 40
lpPoint(110).Y = 40
lpPoint(111).X = 40
lpPoint(111).Y = 49
lpPoint(112).X = 40
lpPoint(112).Y = 50
lpPoint(113).X = 40
lpPoint(113).Y = 64
lpPoint(114).X = 41
lpPoint(114).Y = 17
lpPoint(115).X = 41
lpPoint(115).Y = 48
lpPoint(116).X = 41
lpPoint(116).Y = 53
lpPoint(117).X = 41
lpPoint(117).Y = 65
lpPoint(118).X = 42
lpPoint(118).Y = 18
lpPoint(119).X = 42
lpPoint(119).Y = 34
lpPoint(120).X = 42
lpPoint(120).Y = 35
lpPoint(121).X = 42
lpPoint(121).Y = 48
lpPoint(122).X = 42
lpPoint(122).Y = 57
lpPoint(123).X = 42
lpPoint(123).Y = 65
lpPoint(124).X = 43
lpPoint(124).Y = 17
lpPoint(125).X = 43
lpPoint(125).Y = 33
lpPoint(126).X = 43
lpPoint(126).Y = 36
lpPoint(127).X = 43
lpPoint(127).Y = 48
lpPoint(128).X = 43
lpPoint(128).Y = 60
lpPoint(129).X = 43
lpPoint(129).Y = 65
lpPoint(130).X = 44
lpPoint(130).Y = 17
lpPoint(131).X = 44
lpPoint(131).Y = 32
lpPoint(132).X = 44
lpPoint(132).Y = 37
lpPoint(133).X = 44
lpPoint(133).Y = 56
lpPoint(134).X = 44
lpPoint(134).Y = 62
lpPoint(135).X = 44
lpPoint(135).Y = 65
lpPoint(136).X = 45
lpPoint(136).Y = 17
lpPoint(137).X = 45
lpPoint(137).Y = 32
lpPoint(138).X = 45
lpPoint(138).Y = 39
lpPoint(139).X = 45
lpPoint(139).Y = 53
lpPoint(140).X = 45
lpPoint(140).Y = 62
lpPoint(141).X = 45
lpPoint(141).Y = 64
lpPoint(142).X = 46
lpPoint(142).Y = 18
lpPoint(143).X = 46
lpPoint(143).Y = 31
lpPoint(144).X = 46
lpPoint(144).Y = 40
lpPoint(145).X = 46
lpPoint(145).Y = 50
lpPoint(146).X = 47
lpPoint(146).Y = 19
lpPoint(147).X = 47
lpPoint(147).Y = 30
lpPoint(148).X = 47
lpPoint(148).Y = 42
lpPoint(149).X = 47
lpPoint(149).Y = 51
lpPoint(150).X = 48
lpPoint(150).Y = 20
lpPoint(151).X = 48
lpPoint(151).Y = 29
lpPoint(152).X = 48
lpPoint(152).Y = 45
lpPoint(153).X = 48
lpPoint(153).Y = 53
lpPoint(154).X = 49
lpPoint(154).Y = 22
lpPoint(155).X = 49
lpPoint(155).Y = 27
MaxPolygonPoints = 156
Case 2
lpPoint(0).X = 12
lpPoint(0).Y = 27
lpPoint(1).X = 12
lpPoint(1).Y = 29
lpPoint(2).X = 13
lpPoint(2).Y = 26
lpPoint(3).X = 13
lpPoint(3).Y = 30
lpPoint(4).X = 14
lpPoint(4).Y = 25
lpPoint(5).X = 14
lpPoint(5).Y = 31
lpPoint(6).X = 15
lpPoint(6).Y = 24
lpPoint(7).X = 15
lpPoint(7).Y = 32
lpPoint(8).X = 16
lpPoint(8).Y = 19
lpPoint(9).X = 16
lpPoint(9).Y = 20
lpPoint(10).X = 16
lpPoint(10).Y = 24
lpPoint(11).X = 16
lpPoint(11).Y = 33
lpPoint(12).X = 16
lpPoint(12).Y = 38
lpPoint(13).X = 16
lpPoint(13).Y = 42
lpPoint(14).X = 17
lpPoint(14).Y = 18
lpPoint(15).X = 17
lpPoint(15).Y = 21
lpPoint(16).X = 17
lpPoint(16).Y = 23
lpPoint(17).X = 17
lpPoint(17).Y = 34
lpPoint(18).X = 17
lpPoint(18).Y = 37
lpPoint(19).X = 17
lpPoint(19).Y = 43
lpPoint(20).X = 17
lpPoint(20).Y = 44
lpPoint(21).X = 17
lpPoint(21).Y = 51
lpPoint(22).X = 17
lpPoint(22).Y = 61
lpPoint(23).X = 17
lpPoint(23).Y = 63
lpPoint(24).X = 18
lpPoint(24).Y = 18
lpPoint(25).X = 18
lpPoint(25).Y = 22
lpPoint(26).X = 18
lpPoint(26).Y = 23
lpPoint(27).X = 18
lpPoint(27).Y = 53
lpPoint(28).X = 18
lpPoint(28).Y = 61
lpPoint(29).X = 18
lpPoint(29).Y = 64
lpPoint(30).X = 18
lpPoint(30).Y = 73
lpPoint(31).X = 18
lpPoint(31).Y = 76
lpPoint(32).X = 19
lpPoint(32).Y = 18
lpPoint(33).X = 19
lpPoint(33).Y = 55
lpPoint(34).X = 19
lpPoint(34).Y = 59
lpPoint(35).X = 19
lpPoint(35).Y = 64
lpPoint(36).X = 19
lpPoint(36).Y = 73
lpPoint(37).X = 19
lpPoint(37).Y = 77
lpPoint(38).X = 20
lpPoint(38).Y = 18
lpPoint(39).X = 20
lpPoint(39).Y = 49
lpPoint(40).X = 20
lpPoint(40).Y = 56
lpPoint(41).X = 20
lpPoint(41).Y = 63
lpPoint(42).X = 20
lpPoint(42).Y = 73
lpPoint(43).X = 20
lpPoint(43).Y = 77
lpPoint(44).X = 21
lpPoint(44).Y = 18
lpPoint(45).X = 21
lpPoint(45).Y = 47
lpPoint(46).X = 21
lpPoint(46).Y = 53
lpPoint(47).X = 21
lpPoint(47).Y = 63
lpPoint(48).X = 21
lpPoint(48).Y = 71
lpPoint(49).X = 21
lpPoint(49).Y = 77
lpPoint(50).X = 22
lpPoint(50).Y = 17
lpPoint(51).X = 22
lpPoint(51).Y = 65
lpPoint(52).X = 22
lpPoint(52).Y = 67
lpPoint(53).X = 22
lpPoint(53).Y = 78
lpPoint(54).X = 23
lpPoint(54).Y = 17
lpPoint(55).X = 23
lpPoint(55).Y = 78
lpPoint(56).X = 24
lpPoint(56).Y = 17
lpPoint(57).X = 24
lpPoint(57).Y = 78
lpPoint(58).X = 25
lpPoint(58).Y = 18
lpPoint(59).X = 25
lpPoint(59).Y = 75
lpPoint(60).X = 26
lpPoint(60).Y = 17
lpPoint(61).X = 26
lpPoint(61).Y = 73
lpPoint(62).X = 27
lpPoint(62).Y = 17
lpPoint(63).X = 27
lpPoint(63).Y = 72
lpPoint(64).X = 28
lpPoint(64).Y = 16
lpPoint(65).X = 28
lpPoint(65).Y = 74
lpPoint(66).X = 28
lpPoint(66).Y = 76
lpPoint(67).X = 28
lpPoint(67).Y = 78
lpPoint(68).X = 29
lpPoint(68).Y = 16
lpPoint(69).X = 29
lpPoint(69).Y = 78
lpPoint(70).X = 30
lpPoint(70).Y = 16
lpPoint(71).X = 30
lpPoint(71).Y = 66
lpPoint(72).X = 30
lpPoint(72).Y = 68
lpPoint(73).X = 30
lpPoint(73).Y = 78
lpPoint(74).X = 31
lpPoint(74).Y = 16
lpPoint(75).X = 31
lpPoint(75).Y = 66
lpPoint(76).X = 31
lpPoint(76).Y = 70
lpPoint(77).X = 31
lpPoint(77).Y = 77
lpPoint(78).X = 32
lpPoint(78).Y = 16
lpPoint(79).X = 32
lpPoint(79).Y = 66
lpPoint(80).X = 32
lpPoint(80).Y = 71
lpPoint(81).X = 32
lpPoint(81).Y = 75
lpPoint(82).X = 33
lpPoint(82).Y = 16
lpPoint(83).X = 33
lpPoint(83).Y = 66
lpPoint(84).X = 34
lpPoint(84).Y = 16
lpPoint(85).X = 34
lpPoint(85).Y = 66
lpPoint(86).X = 35
lpPoint(86).Y = 16
lpPoint(87).X = 35
lpPoint(87).Y = 55
lpPoint(88).X = 35
lpPoint(88).Y = 56
lpPoint(89).X = 35
lpPoint(89).Y = 65
lpPoint(90).X = 36
lpPoint(90).Y = 16
lpPoint(91).X = 36
lpPoint(91).Y = 41
lpPoint(92).X = 36
lpPoint(92).Y = 43
lpPoint(93).X = 36
lpPoint(93).Y = 54
lpPoint(94).X = 36
lpPoint(94).Y = 58
lpPoint(95).X = 36
lpPoint(95).Y = 75
lpPoint(96).X = 37
lpPoint(96).Y = 17
lpPoint(97).X = 37
lpPoint(97).Y = 40
lpPoint(98).X = 37
lpPoint(98).Y = 42
lpPoint(99).X = 37
lpPoint(99).Y = 58
lpPoint(100).X = 37
lpPoint(100).Y = 62
lpPoint(101).X = 37
lpPoint(101).Y = 76
lpPoint(102).X = 38
lpPoint(102).Y = 17
lpPoint(103).X = 38
lpPoint(103).Y = 40
lpPoint(104).X = 38
lpPoint(104).Y = 42
lpPoint(105).X = 38
lpPoint(105).Y = 64
lpPoint(106).X = 38
lpPoint(106).Y = 75
lpPoint(107).X = 38
lpPoint(107).Y = 77
lpPoint(108).X = 39
lpPoint(108).Y = 18
lpPoint(109).X = 39
lpPoint(109).Y = 39
lpPoint(110).X = 39
lpPoint(110).Y = 41
lpPoint(111).X = 39
lpPoint(111).Y = 64
lpPoint(112).X = 39
lpPoint(112).Y = 76
lpPoint(113).X = 39
lpPoint(113).Y = 77
lpPoint(114).X = 40
lpPoint(114).Y = 17
lpPoint(115).X = 40
lpPoint(115).Y = 38
lpPoint(116).X = 40
lpPoint(116).Y = 40
lpPoint(117).X = 40
lpPoint(117).Y = 49
lpPoint(118).X = 40
lpPoint(118).Y = 50
lpPoint(119).X = 40
lpPoint(119).Y = 64
lpPoint(120).X = 41
lpPoint(120).Y = 17
lpPoint(121).X = 41
lpPoint(121).Y = 48
lpPoint(122).X = 41
lpPoint(122).Y = 53
lpPoint(123).X = 41
lpPoint(123).Y = 65
lpPoint(124).X = 42
lpPoint(124).Y = 18
lpPoint(125).X = 42
lpPoint(125).Y = 34
lpPoint(126).X = 42
lpPoint(126).Y = 35
lpPoint(127).X = 42
lpPoint(127).Y = 48
lpPoint(128).X = 42
lpPoint(128).Y = 57
lpPoint(129).X = 42
lpPoint(129).Y = 65
lpPoint(130).X = 43
lpPoint(130).Y = 17
lpPoint(131).X = 43
lpPoint(131).Y = 33
lpPoint(132).X = 43
lpPoint(132).Y = 36
lpPoint(133).X = 43
lpPoint(133).Y = 48
lpPoint(134).X = 43
lpPoint(134).Y = 60
lpPoint(135).X = 43
lpPoint(135).Y = 65
lpPoint(136).X = 44
lpPoint(136).Y = 17
lpPoint(137).X = 44
lpPoint(137).Y = 32
lpPoint(138).X = 44
lpPoint(138).Y = 37
lpPoint(139).X = 44
lpPoint(139).Y = 56
lpPoint(140).X = 44
lpPoint(140).Y = 62
lpPoint(141).X = 44
lpPoint(141).Y = 65
lpPoint(142).X = 45
lpPoint(142).Y = 17
lpPoint(143).X = 45
lpPoint(143).Y = 32
lpPoint(144).X = 45
lpPoint(144).Y = 39
lpPoint(145).X = 45
lpPoint(145).Y = 53
lpPoint(146).X = 45
lpPoint(146).Y = 62
lpPoint(147).X = 45
lpPoint(147).Y = 64
lpPoint(148).X = 46
lpPoint(148).Y = 18
lpPoint(149).X = 46
lpPoint(149).Y = 31
lpPoint(150).X = 46
lpPoint(150).Y = 40
lpPoint(151).X = 46
lpPoint(151).Y = 50
lpPoint(152).X = 47
lpPoint(152).Y = 19
lpPoint(153).X = 47
lpPoint(153).Y = 30
lpPoint(154).X = 47
lpPoint(154).Y = 42