-
Notifications
You must be signed in to change notification settings - Fork 8
/
MDIForm1.frm
2212 lines (2014 loc) · 76.6 KB
/
MDIForm1.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-MC"
ClientHeight = 7605
ClientLeft = 4140
ClientTop = 3525
ClientWidth = 9780
Icon = "MDIForm1.frx":0000
LinkTopic = "MDIForm1"
Begin VB.PictureBox Picture1
Align = 1 'Align Top
Appearance = 0 'Flat
BackColor = &H80000004&
BorderStyle = 0 'None
ForeColor = &H80000008&
Height = 990
Left = 0
ScaleHeight = 990
ScaleWidth = 9780
TabIndex = 1
Top = 0
Width = 9780
Begin VB.Frame Frame1
Height = 1050
Left = 0
TabIndex = 2
Top = -75
Width = 9780
Begin VB.Image imgStatus
Height = 480
Index = 0
Left = 120
Top = 420
Width = 480
End
Begin VB.Image imgStatus
Height = 480
Index = 1
Left = 720
Top = 420
Width = 480
End
Begin VB.Image imgStatus
Height = 480
Index = 2
Left = 1320
Top = 420
Width = 480
End
Begin VB.Image imgStatus
Height = 480
Index = 3
Left = 1920
Top = 420
Width = 480
End
Begin VB.Image imgStatus
Height = 480
Index = 4
Left = 2520
Top = 420
Width = 480
End
Begin VB.Image imgStatus
Height = 480
Index = 5
Left = 3120
Top = 420
Width = 480
End
Begin VB.Image imgStatus
Height = 480
Index = 6
Left = 3720
Top = 420
Width = 480
End
Begin VB.Image imgStatus
Height = 480
Index = 7
Left = 4320
Top = 420
Width = 480
End
Begin VB.Image imgStatus
Height = 480
Index = 8
Left = 4920
Top = 420
Width = 480
End
Begin VB.Image imgStatus
Height = 480
Index = 9
Left = 5520
Top = 420
Width = 480
End
Begin VB.Image imgStatus
Height = 480
Index = 10
Left = 6120
Top = 420
Width = 480
End
Begin VB.Image imgStatus
Height = 480
Index = 11
Left = 6720
Top = 420
Width = 480
End
Begin VB.Image imgStatus
Height = 480
Index = 12
Left = 7320
Top = 420
Width = 480
End
Begin VB.Image imgStatus
Height = 480
Index = 13
Left = 7920
Top = 420
Width = 480
End
Begin VB.Label bState
AutoSize = -1 'True
Height = 195
Left = 120
TabIndex = 3
Top = 180
Width = 45
End
End
End
Begin MSComctlLib.StatusBar StatusBar1
Align = 2 'Align Bottom
Height = 375
Left = 0
TabIndex = 0
Top = 7230
Width = 9780
_ExtentX = 17251
_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 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 = "events.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 mnuSkillMobs2
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 mnuTeleportloot
Caption = "Teleport Option"
Shortcut = +{F6}
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 mnuOptMonsAtk
Caption = "Monster Attack"
Shortcut = +{F8}
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 mnuStat
Caption = "Stats Info"
Shortcut = ^A
End
Begin VB.Menu mnWCart
Caption = "Cart"
Shortcut = ^W
End
Begin VB.Menu mnuChatShop
Caption = "Chatroom/Shop"
Shortcut = ^L
End
Begin VB.Menu mnuWinParty
Caption = "Party"
End
Begin VB.Menu mnuGuild
Caption = "Guild"
End
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()
On Error GoTo errie
LoadFormPos Me
'Me.Show
'Load frmConfOptions
'frmConfOptions.Show
'WaitTime 600000
'End
'frmRegistration.Check_Key
Error = False
Load_Response
ReDim CurRoute(0)
PetWinClose = False
MDIfrmMain.Caption = Version
CreatIcon Version
ResetMod
ReDim SkillChar(0)
ReDim MapRoute(0)
StartTime = GetTickCount
'mod
ReadModOption
Load_IPList
CheckEvent "OnStart", "nothingtocheck=True"
'avoid folder
Load_AvoidID
Load_Monswarplist
Load_Warplist
Load_Avoidlist
'table folder
Load_Special_Status
Load_Char_Status
Load_Emotion
Load_Rarelist
Load_Droplist
Load_Item
Load_Sell
Load_Buy
Load_Monster
Load_Attack
Load_SkillName
Load_Kafra
'maproute folder
Load_NPCWARP
Load_NPC
'profile folder
Load_NPC_Profile
Load_Equip_Profile
Load_SelfSkill_Profile
Load_Recovery_Profile
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
Automove = False
Autoheal = False
AvoidWarp = False
NomonsWarp = False
AutoAI = False
Load_Option
Load_User
Load_Server
If Not FileExists(MapPath & "\prontera.gat") Then
MsgBox "You need to properly config 'gatpath' in options.ini"
End
End If
'test_maproute
'Exit Sub
'end test
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
Exit Sub
errie:
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 = 2
Call Shell_NotifyIcon(NIM_DELETE, IconData)
Me.Show
End If
If Int(Msg / 15) = WM_RBUTTONUP Then
Me.WindowState = 2
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
If Me.width > 1200 Then Frame1.width = Me.width - 120
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 = tstr & 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 = tstr & 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)), 1)
strUser = frmLogin.txtUser.text
ElseIf Options = "pass" Then
frmLogin.txtPass.text = DeUser(Trim(Right(tstr, Len(tstr) - Index)), 2)
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, 1)
Print #1, "pass = " & EnUser(StrPass, 2)
Print #1, "master_server_name = " & MasterSelect.Name
Print #1, "server = " & CStr(NumServ)
Print #1, "character = " & CStr(CharIdStart)
Close 1
End Sub
Private Sub login_Click()
Load_User
frmLogin.Visible = True
End Sub
Public Sub Save_Option()
Open App.Path & "\control\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, "bi-direction_routing = " & btol(BiDirection)
Print #1, "use_kafra_warp = " & btol(UseNPCWarp)
Print #1, "npc_bi-direction_routing = " & btol(UseNPCBiDirect)
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, "autorestart = " & btol(UseRestart) & " #" & CStr(RestartTime) & "#"
Print #1, "priority = " & StartPriority
Print #1, "#* note: priority have 4 values possible (realtime, high, normal, low). default is 'normal'."
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, "deadrecon = " & btol(DeadRecon)
Print #1, ""
Print #1, "[Party Mode]"
'Print #1, "follow_enable = " & btol(FollowMode.Active)
Print #1, "follow_target = " & FollowMode.Name
Print #1, "follow_autobuff = " & btol(FollowMode.AutoBuff)
'Print #1, "follow_noattack = " & btol(FollowMode.NoAttack)
Print #1, ""
'Print #1, "[Tanker Mode]"
'Print #1, "tanker_enable = " & btol(TankerMode.Active)
'Print #1, "tanker_target = " & btol(TankerMode.Name)
'Print #1, "tanker_autokill = " & btol(TankerMode.AutoBuff)
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, "useskillmobs2 = " + btol(UseSkillMobs2) + " #" + MobSkill2.rawname + " - " + CStr(MobSkill2.Lv) + "#" + _
MobSkill2.MonsName; " - " + CStr(MobSkill2.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(Val(CCSkill.SP) * 100) & "%#" & CCSkill.Monster & " - " & CStr(CCSkill.Lv) & "#"
Print #1, "autofinishcombo = " & btol(FCSkill.Use) & " #" & CStr(Val(FCSkill.SP) * 100) & "%#" & FCSkill.Monster & " - " & CStr(FCSkill.Lv) & "#"
Print #1, ""
Print #1, "[Sage]"
Print #1, "autospell = " & btol(UseAutoSpell) & " #" & AutoSpell_Name & "#"
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, "do-nothing_teleport = " & btol(TeleNothing)
Print #1, "forceteleport = " & btol(ForceTeleport)
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, "telemob = " & MobTeleNum
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, "onlyinlock = " & btol(AtkMode)
Print #1, "detectskillfail = " & btol(DetectFail)
Print #1, "killsteal = " & btol(killsteal)
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, "backstorage = " & btol(isBackStore)
Print #1, ""
Print #1, "[Log Control]"
Print #1, "chatlog = " & btol(Auto_Chatlog)
'Print #1, "statlog = " & btol(UseStatLog)
Print #1, ""
Print #1, "[Form Control]"
Print #1, "disable_updatepeople = " & btol(Disable_frmPeople)
'Print #1, "statlog = " & btol(UseStatLog)
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, ""
Print #1, "[Connection Control]"
Print #1, "useproxy = " & btol(IsUseProxy)
Print #1, "proxy_ip = " & ProxyIP
Print #1, "proxy_port = " & CStr(ProxyPort)
Print #1, "proxy_type = " & CStr(ProxyType)
Print #1, "proxy_user = " & ProxyUser
Print #1, "proxy_pass = " & ProxyPass
Print #1, "' proxy_type : 0 - HTTPS / 1 - SOCKS 4 / 2 - SOCKS 5"
Print #1, ""
Close 1
End Sub
Private Sub mnRecShop_Click()
CreateShop
End Sub
Private Sub mnu_Click()
frmModConfig.Visible = True
End Sub
Private Sub mnuAll_Click()
Load_NPC_Profile
Load_NPCWARP
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
ReadModOption
MDIfrmMain.Load_Option
End Sub
Private Sub mnuAllProfile_Click()
Load_NPC_Profile