Forum Gildii Wielkiego Bractwa Sosarii (WBS)

set %ruda12 1320
set %ruda15 2007
set %ruda7 1109
set %ruda1 0
set %ruda14 1209
set %ruda13 1309
set %ruda9 2001
set %ruda11 1247
set %ruda10 1424
set %ruda8 1024
set %ruda6 1121
set %ruda5 1301
set %ruda3 2130
set %ruda4 1541
set %ruda2 1548
set %ruda null

initEvents
Event SysMessage "Do roboty"
set #LTARGETKIND 3
set %postac #CHARID

narzedzie:
Menu Clear
Menu HideEUO
Menu Window size 200 100
Menu Font Name tahoma
Menu Window Title Wybierz narzedzie
menu list create narzedzie_list 10 10 175 40
Menu list add narzedzie_list Kilof
Menu list add narzedzie_list Łopata
menu list select narzedzie_list 1
Menu Button narzedzie_btn 20 65 160 22 OK

narzedzie_loop:
if #MENUBUTTON = narzedzie_btn
{
set #MENUBUTTON null
menu get narzedzie_list
if #MENURES = 1
{
set %tool NPF
set %sur DWJ
goto wybierzrude
}
if #MENURES = 2
{
set %tool TWF
set %sur POF_TMK
set %equip #false
goto surowce
}
goto surowce
}
goto narzedzie_loop

wybierzrude:
Menu Clear
Menu HideEUO
Menu Window size 200 350
Menu Font Name tahoma
Menu Window Title Wybierz rude
menu Check _1 10 10 150 20 #true Żelazo
menu Check _2 10 30 150 20 #true Miedź
menu Check _3 10 50 150 20 #true Malachit
menu Check _4 10 70 150 20 #true Rdzawa ruda
menu Check _5 10 90 150 20 #true Srebro
menu Check _6 10 110 150 20 #true Złoto
menu Check _7 10 130 150 20 #true Syderyt
menu Check _8 10 150 150 20 #true Agapit
menu Check _9 10 170 150 20 #true  Valorite
menu Check _20 10 190 150 20 #true Verite
menu Check _11 10 210 150 20 #true Azuryt
menu Check _12 10 230 150 20 #true Mithril
menu Check _13 10 250 150 20 #true Magnetyt
menu Check _14 10 270 150 20 #true Krwawnik
menu Check _15 10 290 150 20 #true Terathryt
Menu Button wyb_rud 20 320 160 22 OK

wyb_rud_loop:
if #MENUBUTTON = wyb_rud
   {
   set #MENUBUTTON null
   for %x 1 15
      {
      menu get _ , %x
      set %rudatemp %ruda . %x
      if #MENURES = #TRUE
      set %ruda %ruda , _ , %rudatemp
      }
   goto surowce
   }
goto wyb_rud_loop

surowce:
Menu Clear
Menu HideEUO
Menu Window size 200 100
Menu Font Name tahoma
Menu Window Title Co robić z surowcami?
menu list create sur_list 10 10 175 40
Menu list add sur_list Do juczniaka
Menu list add sur_list Na ziemie
menu list select sur_list 1
Menu Button sur_btn 20 65 160 22 OK

sur_loop:
if #MENUBUTTON = sur_btn
{
set #MENUBUTTON null
menu get sur_list
if #MENURES = 1
{
set %sur_juczn #true
set %sur_ziemia #false
}
if #MENURES = 2
{
set %sur_ziemia #true
set %sur_juczn #false
}
goto juczniaki
}
goto sur_loop

juczniaki:
if %sur_juczn = #false
goto zaczynaj

Menu Clear
Menu HideEUO
Menu Window size 400 100
Menu Font Name tahoma
Menu Window Title Ile masz juczniakow? (domyslnie 1)
menu Edit iloscjuczn_pole 10 10 350 Wpisz ilosc juczniakow...
Menu Button iloscjuczn_btn 20 65 160 22 OK

while #MENUBUTTON <> iloscjuczn_btn
{
}
menu hide

set #MENUBUTTON null
menu getNum iloscjuczn_pole 1
set %iloscjuczn #MENURES

for %licz1 1 %iloscjuczn
{
event sysmessage Wskaz juczniaka %licz1
set #TARGCURS 1
repeat
until #TARGCURS = 0

set %juczniak . %licz1 #LTARGETID
}
set %licz3 1

event sysmessage Wskaz pojemnik z kilofami
set #TARGCURS 1
repeat
until #TARGCURS = 0
set %zapas #LTARGETID

zaczynaj:
gosub kilof
gosub zbierz_ziola
gosub przenies
set %celx #CHARPOSX + 3
event pathfind %celx #CHARPOSY
wait 2s
gosub zbierz_ziola
gosub przenies
set %cely #CHARPOSY + 3
event pathfind #CHARPOSX %cely
wait 2s
gosub zbierz_ziola
gosub przenies
set %celx #CHARPOSX - 3
event pathfind %celx #CHARPOSY
wait 2s
gosub zbierz_ziola
gosub przenies
set %cely #CHARPOSY - 3
event pathfind #CHARPOSX %cely
wait 2s
goto zaczynaj
event SysMessage Koniec zbierania...
halt
;---------------------------------------------------------------------
sub zbierz_ziola
; set %my_x #charposx
; set %my_y #charposy
;--gora zbieraj----
np1:
Event sysmessage szukam rudy miejscu nr 1
set #LOBJECTID %kilof
set #ltargetx #charposx
set #ltargety #charposy - 1
set #LTARGETKIND 3
event macro 17
target
event macro 22
wait 1s
komunikat1:
set %ms #SYSMSG
;event SysMessage MG : %ms
  if N/A in %ms
   {
      event macro 17
      target
      event macro 22
      goto komunikat1
   }
if nie_ma in %ms || nie_mozesz in %ms
     {
         goto np2
     }

if  nie_udalo_ci_sie in %ms
     {
;         wait 1s
     }
if znalazles in %ms
     {
;         wait 1s
     }
FindItem NPF C_ , %postac
if #FINDID = x
gosub kilof
goto np1

;---gora prawo , na prawo maleje (moje)
np2:
Event sysmessage szukam rudy w innym miejscu...(2)
set #LOBJECTID %kilof
set #ltargetx #charposx - 1
set #ltargety #charposy - 1
set #LTARGETKIND 3
event macro 17
target
event macro 22
wait 1s
komunikat2:
set %ms #SYSMSG
  if N/A in %ms
   {
      event macro 17
      target
      event macro 22
      goto komunikat2
   }
if nie_ma in %ms || nie_mozesz in %ms
     {
         goto np3
     }

if  nie_udalo_ci_sie in %ms
     {
;         wait 1s
     }
if znalazles in %ms
     {
;         wait 1s
     }
FindItem NPF C_ , %postac
if #FINDID = x
gosub kilof
goto np2

np3:
Event sysmessage szukam rudy w innym miejscu...(3)
set #LOBJECTID %kilof
set #ltargetx #charposx - 1
set #ltargety #charposy
set #LTARGETKIND 3
event macro 17
target
event macro 22
wait 1s
komunikat3:
set %ms #SYSMSG
;event SysMessage MG : %ms
  if N/A in %ms
   {
      wait 1s
      event macro 17
      target
      event macro 22
      goto komunikat3
   }
if nie_ma in %ms || nie_mozesz in %ms
     {
         goto np4
     }

if  nie_udalo_ci_sie in %ms
     {
;         wait 1s
     }
if znalazles in %ms
     {
;         wait 1s
     }
FindItem NPF C_ , %postac
if #FINDID = x
gosub kilof
goto np3

np4:
Event sysmessage szukam rudy w innym miejscu...(4)
set #LOBJECTID %kilof
set #ltargetx #charposx - 1
set #ltargety #charposy + 1
set #LTARGETKIND 3
event macro 17
target
event macro 22
wait 1s
komunikat4:
set %ms #SYSMSG
;event SysMessage MG : %ms
  if N/A in %ms
   {
      event macro 17
      target
      event macro 22
      goto komunikat4
   }
if nie_ma in %ms || nie_mozesz in %ms
     {
         goto np5
     }

if  nie_udalo_ci_sie in %ms
     {
;         wait 1s
     }
if znalazles in %ms
     {
;         wait 1s
     }
FindItem NPF C_ , %postac
if #FINDID = x
gosub kilof
goto np4

np5:
Event sysmessage szukam rudy w innym miejscu...(5)
set #LOBJECTID %kilof
set #ltargetx #charposx
set #ltargety #charposy + 1
set #LTARGETKIND 3
event macro 17
target
event macro 22
wait 1s
komunikat5:
set %ms #SYSMSG
;event SysMessage MG : %ms
  if N/A in %ms
   {
      event macro 17
      target
      event macro 22
      goto komunikat5
   }
if nie_ma in %ms || nie_mozesz in %ms
     {
         goto np6
     }

if  nie_udalo_ci_sie in %ms
     {
         wait 1s
     }
if znalazles in %ms
     {
         wait 1s
     }
FindItem NPF C_ , %postac
if #FINDID = x
gosub kilof
goto np5

np6:
Event sysmessage szukam rudy w innym miejscu...(6)
set #LOBJECTID %kilof
set #ltargetx #charposx + 1
set #ltargety #charposy + 1
set #LTARGETKIND 3
event macro 17
target
event macro 22
wait 1s
komunikat6:
set %ms #SYSMSG
;event SysMessage MG : %ms
  if N/A in %ms
   {
      event macro 17
      target
      event macro 22
      goto komunikat6
   }
if nie_ma in %ms || nie_mozesz in %ms
     {
         goto np7
     }

if  nie_udalo_ci_sie in %ms
     {
         wait 1s
     }
if znalazles in %ms
     {
         wait 1s
     }
FindItem NPF C_ , %postac
if #FINDID = x
gosub kilof
goto np6

np7:
Event sysmessage szukam rudy w innym miejscu...(7)
set #LOBJECTID %kilof
set #ltargetx #charposx + 1
set #ltargety #charposy
set #LTARGETKIND 3
event macro 17
target
event macro 22
wait 1s
komunikat7:
set %ms #SYSMSG
;event SysMessage MG : %ms
  if N/A in %ms
   {
      event macro 17
      target
      event macro 22
      goto komunikat7
   }
if nie_ma in %ms || nie_mozesz in %ms
     {
         goto np8
     }

if  nie_udalo_ci_sie in %ms
     {
         wait 1s
     }
if znalazles in %ms
     {
         wait 1s
     }
FindItem NPF C_ , %postac
if #FINDID = x
gosub kilof
goto np7

np8:
Event sysmessage szukam rudy w innym miejscu...(8)
set #LOBJECTID %kilof
set #ltargetx #charposx + 1
set #ltargety #charposy - 1
set #LTARGETKIND 3
event macro 17
target
event macro 22
wait 1s
komunikat8:
set %ms #SYSMSG
;event SysMessage MG : %ms
  if N/A in %ms
   {
      event macro 17
      target
      event macro 22
      goto komunikat8
   }
if nie_ma in %ms || nie_mozesz in %ms
     {
         goto np9
     }

if  nie_udalo_ci_sie in %ms
     {
         wait 1s
     }
if znalazles in %ms
     {
         wait 1s
     }
FindItem NPF C_ , %postac
if #FINDID = x
gosub kilof
goto np8

np9:
Event sysmessage szukam rudy w innym miejscu...(9)
set #LOBJECTID %kilof
set #ltargetx #charposx
set #ltargety #charposy
set #LTARGETKIND 3
event macro 17
target
event macro 22
wait 1s
komunikat9:
set %ms #SYSMSG
;event SysMessage MG : %ms
  if N/A in %ms
   {
      event macro 17
      target
      event macro 22
      goto komunikat9
   }
if nie_ma in %ms || nie_mozesz in %ms
     {
         goto np10
     }

if  nie_udalo_ci_sie in %ms
     {
         wait 1s
     }
if znalazles in %ms
     {
         wait 1s
     }
FindItem NPF C_ , %postac
if #FINDID = x
gosub kilof
goto np9

np10:
sound cratepickup.wav
;--------wyjscie z funkcji zbierania sie.....
return

sub kilof
FindItem %tool C_ , %postac
if #FINDID = x
   {
   FindItem %tool C_ , #BACKPACKID
   if #FINDID = x
      {
      set #LOBJECTID %juczniak1
      event macro 17
      wait 1s
      finditem %tool C_ , #CONTID
      if #FINDID = x
      {
      set #LOBJECTID %zapas
      event macro 17
      wait 3s
      finditem %tool C_ , #CONTID
      if #FINDID = x
         {
         display ok Nie masz kilofow! Zatrzymuje!
         halt
         }
      }
        ;for %liczkilofy 1 10
        repeat
            {
            finditem %tool C_ , #CONTID
            exevent drag #FINDID
            wait 10
            exevent dropc #BACKPACKID
            }
        until #WEIGHT > #MAXWEIGHT - 15
      }
   }
set #LOBJECTID #findid
set %kilof #FINDID
if %equip = #false
return
exevent drag #FINDID
wait 1s
exevent droppd
wait 2s
return

sub przenies
if %sur_ziemia = #true
{
   finditem %sur C_ , #BACKPACKID
   while #FINDID <> x
   {
      exevent drag #FINDID #FINDSTACK
      wait 10
      exevent dropg #CHARPOSX #CHARPOSY #CHARPOSZ
      wait 10
      finditem %sur C_ , #BACKPACKID
   }
   return
}

otworz_juki:
msg .grab$
set #LOBJECTID %juczniak . %licz3
event macro 17
szukaj:
finditem %sur C_ , #BACKPACKID
if #FINDID = x
{
for %11 1 %iloscjuczn
{
finditem QQD C
exevent drag #FINDID 1
wait 10
exevent dropc %juczniak . %11
wait 10
}
set #LOBJECTID %kilof
return
}
if #FINDCOL in %ruda
{
exevent drag #FINDID #FINDSTACK
wait 10
exevent dropc #CONTID
wait 10
set %licz2 %licz2 + #FINDSTACK
if too_heavy in #SYSMSG
{
event sysmessage Zmieniam juczniaka!
set %licz3 %licz3 + 1
set %licz2 0
if %licz3 > %iloscjuczn
{
display ok Juczniaki pelne! Zatrzymuje
halt
}
goto otworz_juki
}
}
else
{
exevent drag #FINDID #FINDSTACK
wait 10
exevent dropg #CHARPOSX #CHARPOSY #CHARPOSZ
wait 10
}
goto szukaj