#comments-start
Copyright 2011-2012 Jeroen De Meerleer
This file is part of Go Cops! 2: The Reanimation
Go Cops! 2: The Reanimation is free software: you can redistribute it and/or modify
it under the terms of the GNU General Public License as published by
the Free Software Foundation, either version 3 of the License, or
(at your option) any later version.
Go Cops! 2: The Reanimation is distributed in the hope that it will be useful,
but WITHOUT ANY WARRANTY; without even the implied warranty of
MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
GNU General Public License for more details.
You should have received a copy of the GNU General Public License
along with Go Cops! 2: The Reanimation If not, see <http://www.gnu.org/licenses/>.
#comments-end
func manager()
$managergui=guicreate("Go Cops!: Manager", 300, 350)
guictrlcreatetab(5, 5, 290, 340)
GUICtrlCreateTabItem("Extensions")
guictrlcreatelabel("Download new extensions", 35, 35)
$downloadlist=guictrlcreatecombo("", 30, 50, 230)
$downloadbut=guictrlcreatebutton("Download extension", 35, 75, 220, 50)
guictrlcreatelabel("Modify extensions", 35, 150)
$modifylist=guictrlcreatecombo("", 30, 165, 230)
$delbut=guictrlcreatebutton("Delete extension", 35, 190, 110, 50)
$editbut=guictrlcreatebutton("Edit extension", 145, 190, 110, 50)
$exttotal=0
dim $extension[$exttotal+1][5]
$setdatalocal=string("Select an extension to modify")
$setdatadown=string("Select an extension to download")
while 1
redim $extension[$exttotal+1][5]
$extension[$exttotal][0] = iniread(@AppDataDir & "\Go Cops!\temp\updates.ini", "extensions", "file" & $exttotal, int(2))
if $extension[$exttotal][0] = int(2) then
ExitLoop
Else
$extension[$exttotal][1] = iniread(@AppDataDir & "\Go Cops!\temp\updates.ini", "extensions", "iden" & $exttotal, int(2))
$localext=0
dim $lextension[$localext+1][2]
while 1
ReDim $lextension[$localext+1][2]
$lextension[$localext][0] = iniread(@AppDataDir & "\Go Cops!\settings.ini", "extensions", "title" & $localext, int(2))
$lextension[$localext][1] = iniread(@AppDataDir & "\Go Cops!\settings.ini", "extensions", "iden" & $localext, int(2))
if $lextension[$localext][1] = $extension[$exttotal][1] Then
$setdatalocal=string($setdatalocal & "|" & $lextension[$localext][0])
exitloop
elseif $lextension[$localext][1] = int(2) then
$extension[$exttotal][2] = iniread(@AppDataDir & "\Go Cops!\temp\updates.ini", "extensions", "title" & $exttotal, int(2))
$setdatadown=string($setdatadown & "|" & $extension[$exttotal][2])
ExitLoop
Else
$localext+=1
EndIf
WEnd
EndIf
$exttotal+=1
WEnd
guictrlsetdata($downloadlist, "|" & $setdatadown)
guictrlsetdata($modifylist, "|" & $setdatalocal)
$extinput=guictrlcreateinput("", 30, 250, 230, 85, $ES_MULTILINE)
GUICtrlCreateTabItem("Campaigns")
inetget($web & "game/camp.php", @appdatadir & "\Go Cops!\temp\camp.ini", 1)
guictrlcreatelabel("Download new campaigns", 35, 35)
$campdownloadlist=guictrlcreatecombo("", 30, 50, 230)
$campdownloadbut=guictrlcreatebutton("Download campaign", 35, 75, 220, 50)
guictrlcreatelabel("Modify campaign", 35, 150)
$campmodifylist=guictrlcreatecombo("", 30, 165, 230)
$campdelbut=guictrlcreatebutton("Delete campaigns", 35, 190, 110, 50)
$campeditbut=guictrlcreatebutton("Edit campaign", 145, 190, 110, 50)
$camptotal=0
dim $campaign[$camptotal+1][5]
$campsetdatalocal=string("Select a campaign to modify")
$campsetdatadown=string("Select a campaign to download")
while 1
redim $campaign[$camptotal+1][5]
$campaign[$camptotal][0] = iniread(@AppDataDir & "\Go Cops!\temp\camp.ini", "campaigns", "file" & $camptotal, int(2))
if $campaign[$camptotal][0] = int(2) then
ExitLoop
Else
$campaign[$camptotal][1] = iniread(@AppDataDir & "\Go Cops!\temp\camp.ini", "campaigns", "iden" & $camptotal, int(2))
$localcamp=0
dim $lcampaign[$localcamp+1][2]
while 1
ReDim $lcampaign[$localcamp+1][2]
$lcampaign[$localcamp][0] = iniread(@AppDataDir & "\Go Cops!\settings.ini", "campaigns", "title" & $localcamp, int(2))
$lcampaign[$localcamp][1] = iniread(@AppDataDir & "\Go Cops!\settings.ini", "campaigns", "iden" & $localcamp, int(2))
if $lcampaign[$localcamp][1] = $campaign[$camptotal][1] Then
$campsetdatalocal=string($campsetdatalocal & "|" & $lcampaign[$localcamp][0])
exitloop
elseif $lcampaign[$localcamp][1] = int(2) then
$campaign[$camptotal][2] = iniread(@AppDataDir & "\Go Cops!\temp\camp.ini", "campaigns", "title" & $camptotal, int(2))
$campsetdatadown=string($campsetdatadown & "|" & $campaign[$camptotal][2])
ExitLoop
Else
$localcamp+=1
EndIf
WEnd
EndIf
$camptotal+=1
WEnd
guictrlsetdata($campdownloadlist, "|" & $campsetdatadown)
guictrlsetdata($campmodifylist, "|" & $campsetdatalocal)
$campinput=guictrlcreateinput("", 30, 250, 230, 85, $ES_MULTILINE)
GUICtrlCreateTabItem("Saves")
$saveslist=guictrlcreatelist("", 15, 50, 150, 275)
$savetotal=0
dim $saves[$savetotal+1]
while 1
redim $saves[$savetotal+1]
$saves[$savetotal]=iniread(@AppDataDir & "\Go Cops!\settings.ini", "saves", "name" & $savetotal, int(2))
if $saves[$savetotal]=int(2) then ExitLoop
guictrlsetdata($saveslist, $saves[$savetotal])
$savetotal+=1
WEnd
$savesdelbut=guictrlcreatebutton("Delete", 175, 50, 100, 75)
$savesrenbut=guictrlcreatebutton("Rename", 175, 125, 100, 75)
$savescpbut=guictrlcreatebutton("Copy", 175, 200, 100, 75)
guisetstate()
while 1
$msg=guigetmsg()
select
Case $msg=$GUI_EVENT_CLOSE
guidelete($managergui)
return
case $msg=$savesrenbut
$saveread=guictrlread($saveslist)
$savesren = guicreate("Rename", 200, 125)
guictrlcreatelabel("Enter name", 10, 15)
$savesrenctrl=guictrlcreateinput($saveread, 20, 30, 160)
$renbut=guictrlcreatebutton("Rename", 20, 75, 160, 40)
guisetstate()
while 1
$renmsg=guigetmsg()
select
Case $renmsg=$GUI_EVENT_CLOSE
guidelete($savesren)
ExitLoop
Case $renmsg=$renbut
$checksave=0
while 1
$rensavecheck=iniread(@AppDataDir & "\Go Cops!\settings.ini", "saves", "name" & $checksave, int(2))
if $rensavecheck=int(2) Then
ExitLoop
elseif $saveread=$rensavecheck Then
$newsaveread=guictrlread($savesrenctrl)
filemove(@AppDatadir & "\Go Cops!\save files\" & $saveread & ".gcs", @AppDatadir & "\Go Cops!\save files\" & $newsaveread & ".gcs")
iniwrite(@AppDataDir & "\Go Cops!\settings.ini", "saves", "name" & $checksave, $newsaveread)
guidelete($savesren)
ExitLoop
EndIf
$checksave+=1
WEnd
EndSelect
WEnd
case $msg=$savescpbut
$saveread=guictrlread($saveslist)
$savescp = guicreate("Copy", 200, 125)
guictrlcreatelabel("Enter name of copy", 10, 15)
$savesinput=guictrlcreateinput($saveread, 20, 30, 160)
$cpbut=guictrlcreatebutton("Rename", 20, 75, 160, 40)
guisetstate()
while 1
$cpmsg=guigetmsg()
select
Case $cpmsg=$GUI_EVENT_CLOSE
guidelete($savescp)
ExitLoop
case $cpmsg=$cpbut
$checksave=0
while 1
$cpsavecheck=iniread(@AppDataDir & "\Go Cops!\settings.ini", "saves", "name" & $checksave, int(2))
if $cpsavecheck=int(2) Then
ExitLoop
elseif $saveread=$cpsavecheck Then
$newsaveread=guictrlread($savesinput)
filecopy(@AppDatadir & "\Go Cops!\save files\" & $saveread & ".gcs", @AppDatadir & "\Go Cops!\save files\" & $newsaveread & ".gcs")
while 1
$cpsavecheck=iniread(@AppDataDir & "\Go Cops!\settings.ini", "saves", "name" & $checksave, int(2))
if $cpsavecheck = int(2) then ExitLoop
$checksave+=1
WEnd
iniwrite(@AppDataDir & "\Go Cops!\settings.ini", "saves", "name" & $checksave, $newsaveread)
guidelete($savescp)
ExitLoop
EndIf
$checksave+=1
WEnd
EndSelect
WEnd
case $msg=$savesdelbut
$saveread=guictrlread($saveslist)
$savesconf = MsgBox(4, "Confirmation", "Are you sure you want to delete this saved file?")
if $savesconf = 6 Then
$localsaves=0
dim $lsaves[$localsaves+1][5]
while 1
redim $lsaves[$localsaves+1][5]
$lsaves[$localsaves][0]=iniread(@AppDataDir & "\Go Cops!\settings.ini", "saves", "name" & $localsaves, int(2))
If $saveread = $lsaves[$localsaves][0] Then
while 1
redim $lsaves[$localsaves+1][5]
$used=iniread(@AppDataDir & "\Go Cops!\settings.ini", "saves", "name" & $localsaves+1, int(2))
if $used = int(2) Then
inidelete(@AppDataDir & "\Go Cops!\settings.ini", "saves", "name" & $localsaves)
ExitLoop 2
Else
iniwrite(@AppDataDir & "\Go Cops!\settings.ini", "saves", "name" & $localsaves, $used)
EndIf
$localsaves+=1
WEnd
elseif $lsaves[$localsaves][0]=int(2) then
exitloop
Else
$localsaves+=1
EndIf
WEnd
filedelete(@AppDataDir & "\Go Cops!\save files\" & $saveread & ".gcs")
msgbox(0, "Save file deleted", "Save file " & $saveread & " has been deleted!")
EndIf
case $msg=$modifylist
$ext=guictrlread($modifylist)
$localext=0
while 1
redim $lextension[$localext+1][5]
$lextension[$localext][0] = iniread(@AppDataDir & "\Go Cops!\settings.ini", "extensions", "title" & $localext, int(2))
If $ext = $lextension[$localext][0] Then
$data=iniread(@AppDataDir & "\Go Cops!\settings.ini", "extensions", "des" & $localext, "No extension selected")
exitloop
EndIf
$localext+=1
WEnd
guictrlsetdata($extinput, $data)
case $msg=$campmodifylist
$camp=guictrlread($campmodifylist)
$localcamp=0
while 1
redim $lcampaign[$localcamp+1][5]
$lcampaign[$localcamp][0] = iniread(@AppDataDir & "\Go Cops!\settings.ini", "campaigns", "title" & $localcamp, int(2))
If $camp = $lcampaign[$localcamp][0] Then
$data=iniread(@AppDataDir & "\Go Cops!\settings.ini", "campaigns", "des" & $localcamp, "No campaign selected")
exitloop
EndIf
$localcamp+=1
WEnd
guictrlsetdata($campinput, $data)
case $msg=$downloadlist
$ext=guictrlread($downloadlist)
$exttotal=0
while 1
redim $extension[$exttotal+1][5]
$extension[$exttotal][0] = iniread(@AppDataDir & "\Go Cops!\temp\updates.ini", "extensions", "title" & $exttotal, int(2))
If $ext = $extension[$exttotal][0] Then
$data=iniread(@AppDataDir & "\Go Cops!\temp\updates.ini", "extensions", "des" & $exttotal, "No extension selected")
exitloop
EndIf
$exttotal+=1
WEnd
guictrlsetdata($extinput, $data)
case $msg=$campdownloadlist
$camp=guictrlread($campdownloadlist)
$camptotal=0
while 1
redim $campaign[$camptotal+1][5]
$campaign[$camptotal][0] = iniread(@AppDataDir & "\Go Cops!\temp\camp.ini", "campaigns", "title" & $camptotal, int(2))
If $camp = $campaign[$camptotal][0] Then
$data=iniread(@AppDataDir & "\Go Cops!\temp\camp.ini", "campaigns", "des" & $camptotal, "No campaign selected")
exitloop
EndIf
msgbox(0, "", $campaign[$camptotal][0] & @CRLF & $camp)
$camptotal+=1
WEnd
guictrlsetdata($campinput, $data)
Case $msg=$delbut
$mod=guictrlread($modifylist)
$extconf = MsgBox(4, "Confirmation", "Are you sure you want to delete this extension?")
if $extconf = 6 Then
$localext=0
while 1
If $mod = $lextension[$localext][0] Then
while 1
redim $lextension[$localext+1][5]
$used=iniread(@AppDataDir & "\Go Cops!\settings.ini", "extensions", "iden" & $localext+1, int(2))
if $used = int(2) Then
inidelete(@AppDataDir & "\Go Cops!\settings.ini", "extensions", "iden" & $localext)
inidelete(@AppDataDir & "\Go Cops!\settings.ini", "extensions", "date" & $localext)
inidelete(@AppDataDir & "\Go Cops!\settings.ini", "extensions", "title" & $localext)
inidelete(@AppDataDir & "\Go Cops!\settings.ini", "extensions", "kind" & $localext)
inidelete(@AppDataDir & "\Go Cops!\settings.ini", "extensions", "des" & $localext)
ExitLoop 2
Else
$lextension[$localext][0] = iniread(@AppDataDir & "\Go Cops!\settings.ini", "extensions", "title" & $localext+1, int(2))
$lextension[$localext][1] = iniread(@AppDataDir & "\Go Cops!\settings.ini", "extensions", "date" & $localext+1, int(2))
$lextension[$localext][2] = iniread(@AppDataDir & "\Go Cops!\settings.ini", "extensions", "iden" & $localext+1, int(2))
$lextension[$localext][3] = iniread(@AppDataDir & "\Go Cops!\settings.ini", "extensions", "kind" & $localext+1, int(2))
$lextension[$localext][4] = iniread(@AppDataDir & "\Go Cops!\settings.ini", "extensions", "des" & $localext+1, int(2))
iniwrite(@AppDataDir & "\Go Cops!\settings.ini", "extensions", "title" & $localext, $lextension[$localext][0])
iniwrite(@AppDataDir & "\Go Cops!\settings.ini", "extensions", "date" & $localext, $lextension[$localext][1])
iniwrite(@AppDataDir & "\Go Cops!\settings.ini", "extensions", "iden" & $localext, $lextension[$localext][2])
iniwrite(@AppDataDir & "\Go Cops!\settings.ini", "extensions", "kind" & $localext, $lextension[$localext][3])
iniwrite(@AppDataDir & "\Go Cops!\settings.ini", "extensions", "des" & $localext, $lextension[$localext][4])
$localext+=1
EndIf
WEnd
Else
$localext+=1
EndIf
WEnd
filedelete(@AppDataDir & "\Go Cops!\extensions\" & $mod & ".gce")
msgbox(0, "Extension Deleted", "Extension " & $mod & "has been deleted!")
EndIf
Case $msg=$campdelbut
$mod=guictrlread($campmodifylist)
$campconf = MsgBox(4, "Confirmation", "Are you sure you want to delete this extension?")
if $campconf = 6 Then
$localcamp=0
while 1
If $mod = $lcampaign[$localcamp][0] Then
while 1
redim $lcampaign[$localcamp+1][5]
$used=iniread(@AppDataDir & "\Go Cops!\settings.ini", "campaigns", "iden" & $localcamp+1, int(2))
if $used = int(2) Then
inidelete(@AppDataDir & "\Go Cops!\settings.ini", "campaigns", "iden" & $localcamp)
inidelete(@AppDataDir & "\Go Cops!\settings.ini", "campaigns", "title" & $localcamp)
inidelete(@AppDataDir & "\Go Cops!\settings.ini", "campaigns", "des" & $localcamp)
ExitLoop 2
Else
$lcampaign[$localext][0] = iniread(@AppDataDir & "\Go Cops!\settings.ini", "campaigns", "title" & $localcamp+1, int(2))
$lcampaign[$localext][1] = iniread(@AppDataDir & "\Go Cops!\settings.ini", "campaigns", "iden" & $localcamp+1, int(2))
$lcampaign[$localext][2] = iniread(@AppDataDir & "\Go Cops!\settings.ini", "campaigns", "des" & $localcamp+1, int(2))
iniwrite(@AppDataDir & "\Go Cops!\settings.ini", "campaigns", "title" & $localcamp, $lcampaign[$localcamp][0])
iniwrite(@AppDataDir & "\Go Cops!\settings.ini", "campaigns", "iden" & $localcamp, $lcampaign[$localcamp][1])
iniwrite(@AppDataDir & "\Go Cops!\settings.ini", "campaigns", "des" & $localcamp, $lcampaign[$localcamp][2])
$localext+=1
EndIf
WEnd
Else
$localext+=1
EndIf
WEnd
filedelete(@AppDataDir & "\Go Cops!\campaigns\" & $mod & ".gce")
msgbox(0, "Campaign Deleted", "Campaign " & $mod & "has been deleted!")
EndIf
case $msg=$editbut
$mod=guictrlread($modifylist)
run('"' & @AppDataDir & '\Go Cops!\core\autoit\SciTE\SciTE.exe" "' & @AppDataDir & '\Go Cops!\extensions\' & $mod & '.gce"' )
case $msg=$campeditbut
$mod=guictrlread($campmodifylist)
run('"notepad.exe" "' & @AppDataDir & '\Go Cops!\campaigns\' & $mod & '.gcc"' )
case $msg=$downloadbut
$mod=guictrlread($downloadlist)
$exttotal=0
$extupdate=guicreate("Instalation", "125", "50")
guictrlcreatelabel("Installing extensions...", "7", "15")
guisetstate(@sw_show, $extupdate)
while 1
redim $extension[$exttotal+1][6]
$extension[$exttotal][0] = iniread(@AppDataDir & "\Go Cops!\temp\updates.ini", "extensions", "title" & $exttotal, int(2))
If $mod = $extension[$exttotal][0] Then
$localext=0
while 1
$read=iniread(@AppDataDir & "\Go Cops!\settings.ini", "extensions", "title" & $localext, int(2))
if $read = int(2) then ExitLoop
$localext += 1
WEnd
$data=iniread(@AppDataDir & "\Go Cops!\temp\updates.ini", "extensions", "file" & $exttotal, int(2))
$extension[$exttotal][1] = iniread(@AppDataDir & "\Go Cops!\temp\updates.ini", "extensions", "title" & $exttotal, int(2))
$extension[$exttotal][2] = iniread(@AppDataDir & "\Go Cops!\temp\updates.ini", "extensions", "date" & $exttotal, int(2))
$extension[$exttotal][3] = iniread(@AppDataDir & "\Go Cops!\temp\updates.ini", "extensions", "iden" & $exttotal, int(2))
$extension[$exttotal][4] = iniread(@AppDataDir & "\Go Cops!\temp\updates.ini", "extensions", "kind" & $exttotal, int(2))
$extension[$exttotal][5] = iniread(@AppDataDir & "\Go Cops!\temp\updates.ini", "extensions", "des" & $exttotal, int(2))
iniwrite(@AppDataDir & "\Go Cops!\settings.ini", "extensions", "title" & $localext, $extension[$exttotal][1])
iniwrite(@AppDataDir & "\Go Cops!\settings.ini", "extensions", "date" & $localext, $extension[$exttotal][2])
iniwrite(@AppDataDir & "\Go Cops!\settings.ini", "extensions", "iden" & $localext, $extension[$exttotal][3])
iniwrite(@AppDataDir & "\Go Cops!\settings.ini", "extensions", "kind" & $localext, $extension[$exttotal][4])
iniwrite(@AppDataDir & "\Go Cops!\settings.ini", "extensions", "des" & $localext, $extension[$exttotal][5])
inetget($data, @AppDataDir & "\Go Cops!\extensions\" & $extension[$exttotal][1] & ".gce", 1)
guidelete($extupdate)
exitloop
EndIf
$exttotal+=1
WEnd
case $msg=$campdownloadbut
$mod=guictrlread($campdownloadlist)
$camptotal=0
$campupdate=guicreate("Instalation", "125", "50")
guictrlcreatelabel("Installing campaign...", "7", "15")
guisetstate(@sw_show, $campupdate)
while 1
redim $campaign[$camptotal+1][6]
$campaign[$camptotal][0] = iniread(@AppDataDir & "\Go Cops!\temp\camp.ini", "campaigns", "title" & $camptotal, int(2))
If $mod = $campaign[$camptotal][0] Then
$localcamp=0
while 1
$read=iniread(@AppDataDir & "\Go Cops!\settings.ini", "campaigns", "title" & $localcamp, int(2))
if $read = int(2) then ExitLoop
$localcamp += 1
WEnd
$data=iniread(@AppDataDir & "\Go Cops!\temp\camp.ini", "campaigns", "file" & $camptotal, int(2))
$extension[$camptotal][1] = iniread(@AppDataDir & "\Go Cops!\temp\camp.ini", "campaigns", "title" & $camptotal, int(2))
$extension[$camptotal][2] = iniread(@AppDataDir & "\Go Cops!\temp\camp.ini", "campaigns", "iden" & $camptotal, int(2))
$extension[$camptotal][3] = iniread(@AppDataDir & "\Go Cops!\temp\camp.ini", "campaigns", "des" & $camptotal, int(2))
iniwrite(@AppDataDir & "\Go Cops!\settings.ini", "campaigns", "title" & $localcamp, $extension[$camptotal][1])
iniwrite(@AppDataDir & "\Go Cops!\settings.ini", "campaigns", "iden" & $localcamp, $extension[$camptotal][2])
iniwrite(@AppDataDir & "\Go Cops!\settings.ini", "campaigns", "des" & $localcamp, $extension[$camptotal][3])
inetget($data, @AppDataDir & "\Go Cops!\campaigns\" & $extension[$camptotal][1] & ".gcc", 1)
guidelete($campupdate)
exitloop
EndIf
$camptotal+=1
WEnd
EndSelect
WEnd
EndFunc