setgirlfly.bas

传奇网吧伴侣源码

Attribute VB_Name = "SetGirlFly"
Option Explicit

Public Function SetGirlFlyPoint(FlyID As Long)
Select Case FlyID

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