-
Notifications
You must be signed in to change notification settings - Fork 8
/
MDIForm1_bak.frm
2006 lines (1855 loc) · 67.6 KB
/
MDIForm1_bak.frm
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
190
191
192
193
194
195
196
197
198
199
200
201
202
203
204
205
206
207
208
209
210
211
212
213
214
215
216
217
218
219
220
221
222
223
224
225
226
227
228
229
230
231
232
233
234
235
236
237
238
239
240
241
242
243
244
245
246
247
248
249
250
251
252
253
254
255
256
257
258
259
260
261
262
263
264
265
266
267
268
269
270
271
272
273
274
275
276
277
278
279
280
281
282
283
284
285
286
287
288
289
290
291
292
293
294
295
296
297
298
299
300
301
302
303
304
305
306
307
308
309
310
311
312
313
314
315
316
317
318
319
320
321
322
323
324
325
326
327
328
329
330
331
332
333
334
335
336
337
338
339
340
341
342
343
344
345
346
347
348
349
350
351
352
353
354
355
356
357
358
359
360
361
362
363
364
365
366
367
368
369
370
371
372
373
374
375
376
377
378
379
380
381
382
383
384
385
386
387
388
389
390
391
392
393
394
395
396
397
398
399
400
401
402
403
404
405
406
407
408
409
410
411
412
413
414
415
416
417
418
419
420
421
422
423
424
425
426
427
428
429
430
431
432
433
434
435
436
437
438
439
440
441
442
443
444
445
446
447
448
449
450
451
452
453
454
455
456
457
458
459
460
461
462
463
464
465
466
467
468
469
470
471
472
473
474
475
476
477
478
479
480
481
482
483
484
485
486
487
488
489
490
491
492
493
494
495
496
497
498
499
500
501
502
503
504
505
506
507
508
509
510
511
512
513
514
515
516
517
518
519
520
521
522
523
524
525
526
527
528
529
530
531
532
533
534
535
536
537
538
539
540
541
542
543
544
545
546
547
548
549
550
551
552
553
554
555
556
557
558
559
560
561
562
563
564
565
566
567
568
569
570
571
572
573
574
575
576
577
578
579
580
581
582
583
584
585
586
587
588
589
590
591
592
593
594
595
596
597
598
599
600
601
602
603
604
605
606
607
608
609
610
611
612
613
614
615
616
617
618
619
620
621
622
623
624
625
626
627
628
629
630
631
632
633
634
635
636
637
638
639
640
641
642
643
644
645
646
647
648
649
650
651
652
653
654
655
656
657
658
659
660
661
662
663
664
665
666
667
668
669
670
671
672
673
674
675
676
677
678
679
680
681
682
683
684
685
686
687
688
689
690
691
692
693
694
695
696
697
698
699
700
701
702
703
704
705
706
707
708
709
710
711
712
713
714
715
716
717
718
719
720
721
722
723
724
725
726
727
728
729
730
731
732
733
734
735
736
737
738
739
740
741
742
743
744
745
746
747
748
749
750
751
752
753
754
755
756
757
758
759
760
761
762
763
764
765
766
767
768
769
770
771
772
773
774
775
776
777
778
779
780
781
782
783
784
785
786
787
788
789
790
791
792
793
794
795
796
797
798
799
800
801
802
803
804
805
806
807
808
809
810
811
812
813
814
815
816
817
818
819
820
821
822
823
824
825
826
827
828
829
830
831
832
833
834
835
836
837
838
839
840
841
842
843
844
845
846
847
848
849
850
851
852
853
854
855
856
857
858
859
860
861
862
863
864
865
866
867
868
869
870
871
872
873
874
875
876
877
878
879
880
881
882
883
884
885
886
887
888
889
890
891
892
893
894
895
896
897
898
899
900
901
902
903
904
905
906
907
908
909
910
911
912
913
914
915
916
917
918
919
920
921
922
923
924
925
926
927
928
929
930
931
932
933
934
935
936
937
938
939
940
941
942
943
944
945
946
947
948
949
950
951
952
953
954
955
956
957
958
959
960
961
962
963
964
965
966
967
968
969
970
971
972
973
974
975
976
977
978
979
980
981
982
983
984
985
986
987
988
989
990
991
992
993
994
995
996
997
998
999
1000
VERSION 5.00
Object = "{831FDD16-0C5C-11D2-A9FC-0000F8754DA1}#2.0#0"; "MSCOMCTL.OCX"
Begin VB.MDIForm MDIfrmMain
AutoShowChildren= 0 'False
BackColor = &H00808080&
Caption = "Revemu 0.87.1"
ClientHeight = 7800
ClientLeft = 4140
ClientTop = 3525
ClientWidth = 10080
Icon = "MDIForm1.frx":0000
LinkTopic = "MDIForm1"
Begin MSComctlLib.StatusBar StatusBar1
Align = 2 'Align Bottom
Height = 375
Left = 0
TabIndex = 0
Top = 7425
Width = 10080
_ExtentX = 17780
_ExtentY = 661
Style = 1
_Version = 393216
BeginProperty Panels {8E3867A5-8586-11D1-B16A-00C0F0283628}
NumPanels = 1
BeginProperty Panel1 {8E3867AB-8586-11D1-B16A-00C0F0283628}
EndProperty
EndProperty
End
Begin VB.Menu mnuCon
Caption = "&Connect"
Begin VB.Menu login
Caption = "Login"
End
Begin VB.Menu mnuRecon
Caption = "Reconnect"
Shortcut = ^{INSERT}
End
Begin VB.Menu mnuReset
Caption = "Reset"
Shortcut = +{INSERT}
End
End
Begin VB.Menu mnuTestHeal
Caption = "Test Heal"
Visible = 0 'False
End
Begin VB.Menu mnuServer
Caption = "&Server"
End
Begin VB.Menu mnuReload
Caption = "&Reload"
Begin VB.Menu mnuAll
Caption = "All *.txt"
Shortcut = ^R
End
Begin VB.Menu mnuProfile
Caption = "Profile"
Begin VB.Menu mnuAllProfile
Caption = "All Profile"
End
Begin VB.Menu mnuEqmons
Caption = "equip_monster.txt"
End
Begin VB.Menu mnuSelfSkill
Caption = "selfskill.txt"
End
Begin VB.Menu mnuNPCReload
Caption = "npc.txt"
End
Begin VB.Menu mnuRChatResp
Caption = "chat_response.txt"
End
Begin VB.Menu mnuRecovery
Caption = "recovery_profile.txt"
End
End
Begin VB.Menu mnuAttack
Caption = "attack.txt"
End
Begin VB.Menu mnuRarelist
Caption = "rarelist.txt"
End
Begin VB.Menu mnuDrop
Caption = "droplist.txt"
End
Begin VB.Menu mnuAvoid
Caption = "avoidlist.txt"
End
Begin VB.Menu mnuautoNpc
Caption = "autonpc.txt"
End
Begin VB.Menu mnuWarpList
Caption = "warplist.txt"
End
Begin VB.Menu mnuSell
Caption = "sell.txt"
End
Begin VB.Menu mnuKeep
Caption = "keep.txt"
End
Begin VB.Menu mnuBuy
Caption = "buy.txt"
End
Begin VB.Menu mnuOptions
Caption = "options.ini"
End
Begin VB.Menu mnuStatustxt
Caption = "status.txt"
End
Begin VB.Menu mnuSpecialStatus
Caption = "specialstatus.txt"
End
Begin VB.Menu mnuRMod
Caption = "mods.ini"
End
End
Begin VB.Menu mnuAction
Caption = "&Actions"
Begin VB.Menu mnuUseRed
Caption = "Use Redz Pot"
Shortcut = {F1}
End
Begin VB.Menu mnuUseOrange
Caption = "Use Orangez Pots"
Shortcut = {F2}
End
Begin VB.Menu mnuTeleport
Caption = "Random Teleportation"
Shortcut = {F3}
End
Begin VB.Menu mnuSit
Caption = "Sit"
Shortcut = {F4}
End
Begin VB.Menu mnuStand
Caption = "Stand"
Shortcut = {F5}
End
Begin VB.Menu mnuShare
Caption = "Set Party Sharing Exp"
Shortcut = {F6}
End
Begin VB.Menu mnuUnshare
Caption = "Unset Party Sharing Exp"
Checked = -1 'True
Shortcut = {F7}
End
Begin VB.Menu mnRecShop
Caption = "Re-Create Shop"
End
Begin VB.Menu mnuSendRaw
Caption = "Send Raw Packet"
Shortcut = {F11}
End
Begin VB.Menu mnuSave
Caption = "Return to Save Point"
Shortcut = {F12}
End
Begin VB.Menu mnuPriori
Caption = "Set Priority"
Begin VB.Menu mnuPri
Caption = "Realtime"
Index = 0
End
Begin VB.Menu mnuPri
Caption = "High"
Checked = -1 'True
Index = 1
End
Begin VB.Menu mnuPri
Caption = "AboveNormal"
Enabled = 0 'False
Index = 2
End
Begin VB.Menu mnuPri
Caption = "Normal"
Index = 3
End
Begin VB.Menu mnuPri
Caption = "BelowNormal"
Enabled = 0 'False
Index = 4
End
Begin VB.Menu mnuPri
Caption = "Low"
Index = 5
End
End
End
Begin VB.Menu mnuLog
Caption = "&Log"
Begin VB.Menu mnuChatLog
Caption = "ChatLog"
End
Begin VB.Menu mnuPKTLOG
Caption = "PacketLog"
End
End
Begin VB.Menu mnuOption
Caption = "&Options"
Begin VB.Menu mnuCheatAggro
Caption = "Cheat Aggro!!"
Visible = 0 'False
End
Begin VB.Menu mnuAI
Caption = "AI Options"
Shortcut = +{F3}
End
Begin VB.Menu mnuAutoPick
Caption = "Auto pick up item."
Visible = 0 'False
End
Begin VB.Menu mnuMove
Caption = "Auto move."
Visible = 0 'False
End
Begin VB.Menu mnuAutoSell1
Caption = "Auto sell when no monster."
Visible = 0 'False
End
Begin VB.Menu mnuAutoSell2
Caption = "Auto sell when got Item."
Visible = 0 'False
End
Begin VB.Menu mnuRandomMove
Caption = "Random move when no monster every # second(s)"
Visible = 0 'False
End
Begin VB.Menu mnuBackTown
Caption = "Back to to town when weight reach xx%"
Visible = 0 'False
End
Begin VB.Menu mnuSAttack
Caption = "Stop attack when weight reach xx%"
Visible = 0 'False
End
Begin VB.Menu mnuSPick
Caption = "Stop pick up when weight reach xx%"
Visible = 0 'False
End
Begin VB.Menu mnuHPSP
Caption = "HP/SP Options"
Shortcut = +{F4}
End
Begin VB.Menu mnuAutosit
Caption = "Auto sit when HP below"
Visible = 0 'False
End
Begin VB.Menu mnuHPWait
Caption = "Sit until HP reach"
Visible = 0 'False
End
Begin VB.Menu mnuSPSit
Caption = "Auto sit when SP below"
Visible = 0 'False
End
Begin VB.Menu mnuSPWait
Caption = "Sit until SP reach"
Visible = 0 'False
End
Begin VB.Menu mnuRedz
Caption = "Auto drink Redz when HP below"
Visible = 0 'False
End
Begin VB.Menu mnuOrange
Caption = "Auto drink Orangez when HP below"
Visible = 0 'False
End
Begin VB.Menu mnuAtt
Caption = "Attack Options"
Shortcut = +{F5}
End
Begin VB.Menu mnuAutoKill
Caption = "Auto attack."
Visible = 0 'False
End
Begin VB.Menu mnuAutoSkill
Caption = "Auto skill use."
Visible = 0 'False
End
Begin VB.Menu mnuSkillMobs
Caption = "Use Bowling Bash Lv.10 when mobs > 3"
Visible = 0 'False
End
Begin VB.Menu mnuRange
Caption = "Attack if Range is locked as xx blocks."
Visible = 0 'False
End
Begin VB.Menu mnuKillSteal
Caption = "Attemp to kill steal."
Visible = 0 'False
End
Begin VB.Menu mnuWeapon
Caption = "Use Weapon to Attack (Mage/Wizard)."
Visible = 0 'False
End
Begin VB.Menu mnuHeal
Caption = "Auto heal."
Visible = 0 'False
End
Begin VB.Menu mnuBallSpirits
Caption = "Call Spirits Ball"
Visible = 0 'False
End
Begin VB.Menu mnuAutoChainCombo
Caption = "Use ChainCombo to Attack (Monk)"
Visible = 0 'False
End
Begin VB.Menu mnuAutoFinishCombo
Caption = "Use FinishCombo to Attack (Monk)"
Visible = 0 'False
End
Begin VB.Menu mnuTeleportloot
Caption = "Teleport Option"
Shortcut = +{F6}
End
Begin VB.Menu mnuWing
Caption = "Auto use wing of fly when start."
Visible = 0 'False
End
Begin VB.Menu mnuDamage
Caption = "Auto teleport when Damage over"
Visible = 0 'False
End
Begin VB.Menu mnuAutoDC
Caption = "Auto teleport When HP below"
Visible = 0 'False
End
Begin VB.Menu mnuNomons
Caption = "Auto teleport when no monster for "
Visible = 0 'False
End
Begin VB.Menu mnuWarp
Caption = "Auto teleport when found warp/exit portal."
Visible = 0 'False
End
Begin VB.Menu mnuCast
Caption = "Cast Anywhere."
Visible = 0 'False
End
Begin VB.Menu mnu
Caption = "Modificate Option"
Shortcut = +{F7}
End
Begin VB.Menu mnuParty
Caption = "Party"
Checked = -1 'True
Visible = 0 'False
End
End
Begin VB.Menu mnuWin
Caption = "&Windows"
Begin VB.Menu mnuCas
Caption = "Cascade"
End
Begin VB.Menu mnuPeople
Caption = "People"
Shortcut = ^O
End
Begin VB.Menu mnuPlayer
Caption = "Player"
Shortcut = ^P
End
Begin VB.Menu mnuStatus
Caption = "Player Status"
Shortcut = ^U
End
Begin VB.Menu mnuMonster
Caption = "Monster"
Shortcut = ^M
End
Begin VB.Menu mnuNPC
Caption = "NPC"
Shortcut = ^N
End
Begin VB.Menu mnuChat
Caption = "Chat"
Shortcut = ^G
End
Begin VB.Menu mnuArmor
Caption = "Weapon/Armor"
Shortcut = ^Q
End
Begin VB.Menu mnuInv
Caption = "Inventory"
Shortcut = ^I
End
Begin VB.Menu mnuItemD
Caption = "Item Description"
Shortcut = ^D
End
Begin VB.Menu mnuMain
Caption = "Main"
Shortcut = ^Y
End
Begin VB.Menu mnuSkill
Caption = "Skill"
Shortcut = ^S
End
Begin VB.Menu mnuMap
Caption = "Map"
Shortcut = ^Z
End
Begin VB.Menu mnuPet
Caption = "Pet Information"
Shortcut = ^T
Visible = 0 'False
End
Begin VB.Menu mnWCart
Caption = "Cart"
Shortcut = ^W
End
Begin VB.Menu mnuStat
Caption = "Stats Info"
Shortcut = ^A
End
Begin VB.Menu mnuChatShop
Caption = "Chatroom/Shop"
Shortcut = ^L
End
Begin VB.Menu mnuGuild
Caption = "Guild"
End
End
Begin VB.Menu mnuAbout
Caption = "&About"
Visible = 0 'False
End
End
Attribute VB_Name = "MDIfrmMain"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Error As Boolean
Private Sub MDIForm_Load()
StrEncPassword = Chr(7) & Chr(3) & Chr(9) & "FuckYoUrA$SsSsS" & Chr(9) & Chr(3) & Chr(7) & Chr(255)
LockXY.X = 0
LockXY.Y = 0
LockXYRand.X = 0
LockXYRand.Y = 0
LoadFormPos Me
Error = False
load_response
PetWinClose = False
MDIfrmMain.Caption = Version
CreatIcon Version
ReDim SkillChar(0)
ReDim Cart(0)
ReDim MapRoute(0)
ReDim MChat(0)
ReDim MShop(0)
Load_NPC_Profile
Load_NPC
Dim test As Integer
'MyPet.AutoFeed = False
ReadModOption
Load_ExcludeMap
Load_SkillName
Load_Special_Status
Load_Char_Status
Load_Emotion
Load_Equip_Profile
Load_SelfSkill_Profile
Load_Recovery_Profile
Load_Monswarplist
Load_Warplist
Load_Avoidlist
Load_Rarelist
Load_Droplist
Load_Monster
Load_Attack
Load_Item
Load_Sell
Load_Buy
Load_Kafra
Load_autoNPC
isWarpAll = False
AlwaySit = False
Dead = False
SWeight1 = False
SWeight2 = False
IsAutoPick = False
IsAutoKill = False
IsAutorest = False
IsAutoSell = False
IsAutoRedz = False
IsAutoOrange = False
IsAutoSell2 = False
IsConnected = False
IsSPWait = False
IsSkillUse = False
IsAutoDC = False
UseWeapon = False
IsDamageDC = False
IsUseRange = False
IsWantHeal = False
IsWantAgi = False
IsWantBles = False
IsAutoChainCombo = False
IsAutoFinishCombo = False
IsAutoSpirits = False
Automove = False
Autoheal = False
killsteal = False
AvoidWarp = False
NomonsWarp = False
AutoAI = False
Load_Option
Load_User
Load_Server
'frmStatus.Visible = True
'Exit Sub
If Not isUseHaunted Then
If Not IsConnected Or MasterSelect.Name = "" Then
frmMasterServer.Visible = True
Else
If MasterSelect.IP = "" Then
MsgBox "Error!!! Need to config your master server in 'table/server.txt' ", vbCritical
Unload MDIfrmMain
End If
frmMain.Visible = True
frmMain.Main_Init
MDIfrmMain.mnuReset.Visible = True
Dead = False
End If
Else
frmMain.Visible = True
frmMain.Main_Init
MDIfrmMain.mnuReset.Visible = True
Dead = False
End If
StartZeny = 0
MDIfrmMain.StatusBar1.SimpleText = "Session Time : 00:00:00, Session EXP/JXP : 0/0, Session ZENY : 0"
LoadFormPos MDIfrmMain
If Error Then Unload MDIfrmMain
End Sub
Private Sub MDIForm_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Dim Msg As Long
If MDIfrmMain.Visible = False Then
Msg = X
If Int(Msg / 15) = WM_LBUTTONDBLCLK Then
Me.WindowState = vbNormal
Call Shell_NotifyIcon(NIM_DELETE, IconData)
Me.Show
End If
End If
End Sub
Private Sub MDIForm_Resize()
If Me.WindowState = 1 Then
Call Shell_NotifyIcon(NIM_SETVERSION, IconData)
Call Shell_NotifyIcon(NIM_ADD, IconData)
Me.Hide
Exit Sub
End If
SaveFormPos Me
End Sub
Private Sub MDIForm_Unload(Cancel As Integer)
Call Shell_NotifyIcon(NIM_DELETE, IconData)
'Unload encryption
SaveFormPos Me
End
Unload frmItem
Unload MDIfrmMain
End Sub
Public Sub CreatIcon(tstr As String)
With IconData
.cbSize = Len(IconData)
.hIcon = MDIfrmMain.Icon
.hWnd = MDIfrmMain.hWnd
.szTip = MDIfrmMain.Caption & Chr(0)
.uCallbackMessage = WM_MOUSEMOVE
.uFlags = NIF_ICON Or NIF_TIP Or NIF_MESSAGE Or NIF_INFO Or NIF_STATE
.uID = vbNull
.uTimeoutOrVersion = NOTIFYICON_VERSION
.szInfoTitle = "Revemu (Beta " & App.Major & "." & App.Minor & " build " & App.Revision & ")" & Chr(0)
.dwInfoFlags = NIF_INFO
End With
End Sub
Private Function MakeCoords(rawCoords As String) As Coord
On Error GoTo Out
Dim xint As Long
Dim yint As Long
yint = Asc(Mid(rawCoords, 1, 1)) * 4
yint = yint + (Asc(Mid(rawCoords, 2, 1)) And &HC0) / 64
xint = (Asc(Mid(rawCoords, 2, 1)) And &H3F) * 16
xint = xint + (Asc(Mid(rawCoords, 3, 1)) And &HF0) / 16
MakeCoords.Y = yint
MakeCoords.X = xint
Exit Function
Out:
MakeCoords.Y = 0
MakeCoords.X = 0
End Function
Private Sub Load_User()
On Error GoTo errie
Open App.Path & "\table\user.txt" For Input As #1
Dim index As Integer
Dim tstr As String
Dim options As String
Dim serv As Integer
Dim char As Integer
serv = 50
char = 10
Do While Not EOF(1)
Line Input #1, tstr
index = InStr(tstr, "=")
If index = 0 Then GoTo endloop
options = LCase(Trim(Left(tstr, index - 1)))
If options = "autoconnect" Then
If Trim(Right(tstr, Len(tstr) - index)) = "1" Then
IsConnected = True
Else
IsConnected = False
End If
ElseIf options = "master_server_name" Then
MasterSelect.Name = Trim(Right(tstr, Len(tstr) - index))
ElseIf options = "id" Then
frmLogin.txtUser.text = DeUser(Trim(Right(tstr, Len(tstr) - index)))
strUser = frmLogin.txtUser.text
ElseIf options = "pass" Then
frmLogin.txtPass.text = DeUser(Trim(Right(tstr, Len(tstr) - index)))
StrPass = frmLogin.txtPass.text
ElseIf options = "server" Then
If Trim(Right(tstr, Len(tstr) - index)) <> "" Then serv = val(Right(tstr, Len(tstr) - index))
ElseIf options = "character" Then
If Trim(Right(tstr, Len(tstr) - index)) <> "" Then char = val(Right(tstr, Len(tstr) - index))
End If
If serv <> 50 And char <> 10 Then
CharIdStart = char
NumServ = serv
End If
endloop:
Loop
Close (1)
Exit Sub
errie:
Close (1)
MsgBox Err.Description, vbCritical
frmLogin.txtUser.text = "user"
frmLogin.txtPass.text = "pass"
End Sub
Public Sub Save_User()
Open App.Path & "\table\user.txt" For Output As #1
Print #1, "[user]"
Print #1, "autoconnect = " & btol(IsConnected)
Print #1, "id = " & EnUser(strUser)
Print #1, "pass = " & EnUser(StrPass)
Print #1, "master_server_name = " & MasterSelect.Name
Print #1, "server = " & CStr(NumServ)
Print #1, "character = " & CStr(CharIdStart)
Close 1
End Sub
Private Sub Decryption_Click()
decrypt.Show
End Sub
Private Sub login_Click()
Load_User
frmLogin.Visible = True
End Sub
Function btol(booin As Boolean) As String
If (booin) Then
btol = "1"
Else
btol = "0"
End If
End Function
Public Sub Save_Option()
Open App.Path & "\table\options.ini" For Output As #1
Print #1, "[Map Control Options]"
Print #1, "gatpath = " & MapPath
Print #1, "usewaypoint = " + btol(RandomMove) + " #" + CStr(Movetime) + "#"
Print #1, "savemapname = " & SaveMapName
Print #1, "lockmapname = " & IIf(Len(LockMapName) < 1, "0", LockMapName)
Print #1, "lockmap_x = " & LockXY.X
Print #1, "lockmap_y = " & LockXY.Y
Print #1, "lockmap_randx = " & LockXYRand.X
Print #1, "lockmap_randy = " & LockXYRand.Y
Print #1, "bidirection_routing = " & btol(BiDirection)
Print #1, "map_routing_time = " & val(map_time_limit)
Print #1, "forcebuy = " & btol(ForceBuy)
Print #1, ""
Print #1, "[Startup Control Options]"
Print #1, "alwaysit = " & btol(AlwaySit) & " #" & ChatRoomName & "#"
Print #1, "autoshare = " & btol(AutoShare)
Print #1, "exall = " + btol(ExAll)
Print #1, ""
Print #1, "[AI Control Options]"
Print #1, "autoai = " & btol(AutoAI)
Print #1, "nomonssit = " & btol(IsNomonsSit)
Print #1, "autokill = " + btol(IsAutoKill)
Print #1, "autoskill = " + btol(IsSkillUse)
Print #1, "autopick = " + btol(IsAutoPick)
Print #1, "automove = " + btol(Automove)
Print #1, "wantheal = " + btol(IsWantHeal) & " #" & AcoHealName & "#"
Print #1, "wantagi = " + btol(IsWantAgi) & " #" + CStr(WantAgiTime) + "#"
Print #1, "wantbles = " + btol(IsWantBles) & " #" + CStr(WantBlesTime) + "#"
Print #1, ""
Print #1, "[Skill Use Control]"
Print #1, "autoheal = " + btol(Autoheal) + " #" + CStr(HPHeal * 100) + "%#" + CStr(HealLV) + "#"
Print #1, "useskillmobs = " + btol(UseSkillMobs) + " #" + MobSkill.rawname + " - " + CStr(MobSkill.Lv) + "#" + _
MobSkill.monsname; " - " + CStr(MobSkill.Number) + "#"
Print #1, "warpall = " & btol(isWarpAll)
Print #1, ""
Print #1, "[Monk]"
Print #1, "autospirits = " + btol(IsAutoSpirits) + " #" + CStr(SpSpirits * 100) + "%#" + CStr(BallSpirits) + "#"
Print #1, "autochaincombo = " + btol(CCSkill.Use) + " #" + CStr(CCSkill.Sp * 100) + "%#" + CCSkill.Monster + " - " + CStr(CCSkill.Lv) + "#"
Print #1, "autofinishcombo = " + btol(FCSkill.Use) + " #" + CStr(FCSkill.Sp * 100) + "%#" + FCSkill.Monster + " - " + CStr(FCSkill.Lv) + "#"
Print #1, ""
Print #1, "[HP/SP Options]"
Print #1, "hpsit = " + btol(IsAutorest) + " #" + CStr(HPSit * 100) + "%#"
Print #1, "hpwait = " + btol(IsHPWait) + " #" + CStr(HPWait * 100) + "%#"
Print #1, "spsit = " + btol(IsSPSit) + " #" + CStr(SPSit * 100) + "%#"
Print #1, "spwait = " + btol(IsSPWait) + " #" + CStr(SPWait * 100) + "%#"
Print #1, ""
Print #1, "[Item Use Control]"
Print #1, "autoitem = " & btol(AutoItem.Auto) & " #" & AutoItem.Name & "#" & CStr(AutoItem.Time) & "#"
Print #1, "autowing = " + btol(AutoWing)
Print #1, "autored = " + btol(IsAutoRedz) + " #" + CStr(HPRed * 100) + "%#" + healitem1 + "#"
Print #1, "autoorange = " + btol(IsAutoOrange) + " #" + CStr(HPOrange * 100) + "%#" + healitem2 + "#"
With SPItem
Print #1, "autosp = " & btol(.Use) & " #" + CStr(.percent * 100) & "%#" & .Name & "#"
End With
Print #1, ""
Print #1, "[Teleport/Disconnect Control Options]"
Print #1, "nomonswarp = " + btol(NomonsWarp) + " #" + CStr(NomonsTime) + "#"
Print #1, "autodc = " + btol(IsAutoDC) + " #" + CStr(HPDC * 100) + "%#" + CStr(AutoDCCase) + "#"
Print #1, "autodc2 = " + btol(IsDamageDC) + " #" + CStr(DamageSet) + "#" + CStr(AutoDC2Case) + "#"
Print #1, ""
Print #1, "[Pet Control Options]"
Print #1, "autofeed = " & btol(MyPet.AutoFeed) & " #" & CStr(MyPet.FeedLimit) & "#" & CStr(MyPet.Delay) & "#"
Print #1, ""
Print #1, "[Avoid Control]"
Print #1, "warpjob = " + btol(JTele) + " #" + JobTele + "#"
Print #1, "avoidwarp = " + btol(AvoidWarp)
Print #1, "avoidgroundskillonposition = " + btol(GSonyou)
Print #1, "avoidgroundskillnearposition = " + btol(GSnearyou)
Print #1, "avoidmonstergroundskillonposition = " + btol(MGSonyou)
Print #1, "avoidmonstergroundskillnearposition = " + btol(MGSnearyou)
Print #1, ""
Print #1, "[Attack Control]"
Print #1, "killmob = " + btol(isKillmob)
Print #1, ""
Print #1, "[Long Range Control Options]"
Print #1, "useweapon = " + btol(UseWeapon)
Print #1, "userange = " + btol(IsUseRange) + " #" + CStr(RangeSet) + "#"
Print #1, "usemindistance = " + btol(useMinDistance) + " #" + CStr(MinDistance) + "#"
Print #1, ""
Print #1, "[Weight Control Options]"
Print #1, "stopattack = " + btol(SWeight1) + " #" + CStr(Weight1 * 100) + "%#"
Print #1, "stoppick = " + btol(SWeight2) + " #" + CStr(Weight2 * 100) + "%#"
Print #1, "backtown = " + btol(IsBackTown) + " #" + CStr(WeightBackTown * 100) + "%#"
Print #1, "backbuy = " & btol(isBackBuy)
Print #1, ""
Print #1, "[Log Control]"
Print #1, "chatlog = " & btol(Auto_Chatlog)
Print #1, ""
Print #1, "[Timing Control]"
Print #1, "giveuptime = " + CStr(giveuptime)
Print #1, "delay = " + CStr(DelayTime)
Print #1, "warpdelay = " + CStr(WarpDelay)
Print #1, "responsetime = " + CStr(ResponseTime / 60)
Print #1, ""
Close 1
End Sub
Public Function MakeHexName(rawLong As String) As String
On Error Resume Next
Dim str1 As String
Dim X As Integer
For X = 1 To Len(rawLong)
If Asc(Mid(rawLong, X, 1)) < 16 Then str1 = str1 + "0"
str1 = str1 + Hex(Asc(Mid(rawLong, X, 1)))
Next
MakeHexName = str1
End Function
Private Sub mnRecShop_Click()
'If IsVending = False And IsVendingWait = False Then
CreateShop
'End If
End Sub
Private Sub mnu_Click()
frmModConfig.Visible = True
End Sub
Private Sub mnuAbout_Click()
frmAbout.Visible = True
End Sub
Private Sub mnuAll_Click()
frmMain.cmdReload_Click
End Sub
Private Sub mnuAllProfile_Click()
Load_Equip_Profile
Load_SelfSkill_Profile
Load_Recovery_Profile
End Sub
Private Sub mnuArmor_Click()
frmArmor.Visible = Not frmArmor.Visible
End Sub
Private Sub mnuAttack_Click()
Load_Attack
End Sub
Private Sub mnuAutoDC_Click()
IsAutoDC = Not IsAutoDC
mnuAutoDC.CheckED = IsAutoDC
Save_Option
End Sub
Private Sub mnuautoNpc_Click()
Load_autoNPC
End Sub
Private Sub mnuAvoid_Click()
Load_Avoidlist
End Sub
Private Sub mnuBackTown_Click()
IsBackTown = Not IsBackTown
mnuBackTown.CheckED = IsBackTown
End Sub
Private Sub mnuBuy_Click()
Load_Buy
End Sub
Private Sub mnuCast_Click()
mnuCast.CheckED = Not mnuCast.CheckED
End Sub
Private Sub mnuChatLog_Click()
mnuChatLog.CheckED = Not mnuChatLog.CheckED
Auto_Chatlog = mnuChatLog.CheckED
Save_Option
End Sub
Private Sub mnuChatShop_Click()
frmChatRoom.Visible = True
End Sub
Private Sub mnuCheatAggro_Click()
mnuCheatAggro.CheckED = Not mnuCheatAggro.CheckED
End Sub
Private Sub mnuDamage_Click()
IsDamageDC = Not IsDamageDC
mnuDamage.CheckED = IsDamageDC
Save_Option
End Sub
Private Sub mnuDrop_Click()
Load_Droplist
End Sub
Private Sub mnuEqmons_Click()
Load_Equip_Profile
End Sub
Private Sub mnuGuild_Click()
frmGuild.Visible = Not frmGuild.Visible
End Sub
Private Sub mnuHeal_Click()
Autoheal = Not Autoheal
mnuHeal.CheckED = Autoheal
Save_Option
End Sub
Private Sub mnuHPWait_Click()
IsHPWait = Not IsHPWait
mnuHPWait.CheckED = IsHPWait
Save_Option
End Sub
Private Sub mnuKeep_Click()
Load_Kafra
End Sub
Private Sub mnuKillSteal_Click()
killsteal = Not killsteal
mnuKillSteal.CheckED = killsteal
Save_Option
End Sub
Private Sub mnuMap_Click()
FrmField.Visible = True
End Sub
Private Sub mnuMonster_Click()
frmMonster.Visible = Not frmMonster.Visible
End Sub
Private Sub mnuNPC_Click()
frmNPC.Visible = Not frmNPC.Visible
End Sub
Private Sub mnuNPCReload_Click()
Load_NPC_Profile
End Sub
Private Sub mnuPeople_Click()
frmPeople.Visible = Not frmPeople.Visible
End Sub
Private Sub mnuPet_Click()
If MyPet.Name = "" Then
frmPet.Visible = True
PetWinClose = False
Update_FrmPet
End If
End Sub
Private Sub mnuPKTLOG_Click()
mnuPKTLOG.CheckED = Not mnuPKTLOG.CheckED
End Sub
'Public Const REALTIME_PRIORITY_CLASS = &H100
'Public Const HIGH_PRIORITY_CLASS = &H80
'Public Const ABOVE_PRIORITY_CLASS = &H60
'Public Const IDLE_PRIORITY_CLASS = &H40
'Public Const NORMAL_PRIORITY_CLASS = &H20
'Public Const LOW_PRIORITY_CLASS = 0
' SetPriorityClass GetCurrentProcess, HIGH_PRIORITY_CLASS
Private Sub mnuPri_Click(index As Integer)
Dim i&
For i = 0 To 5
mnuPri(i).CheckED = False
Next
mnuPri(index).CheckED = True
Select Case index
Case 0: SetPriorityClass GetCurrentProcess, REALTIME_PRIORITY_CLASS
Case 1: SetPriorityClass GetCurrentProcess, HIGH_PRIORITY_CLASS
Case 2: SetPriorityClass GetCurrentProcess, ABOVE_PRIORITY_CLASS
Case 3: SetPriorityClass GetCurrentProcess, NORMAL_PRIORITY_CLASS
Case 4: SetPriorityClass GetCurrentProcess, LOW_PRIORITY_CLASS
Case 5: SetPriorityClass GetCurrentProcess, IDLE_PRIORITY_CLASS
End Select
End Sub
Private Sub mnuRandomMove_Click()
RandomMove = Not RandomMove
mnuRandomMove.CheckED = RandomMove
Save_Option
End Sub
Private Sub mnuRarelist_Click()
Load_Rarelist
End Sub
Private Sub mnuMove_Click()
Automove = Not Automove
mnuMove.CheckED = Automove
Save_Option