Drop Logger

By Testor on Sep 19, 2009

Drop Logger script. After asking on here and dwift forums for help no-one helped so i was bored and made it myself.
Only have a Monsters/Drop lists few on there :.
$Percent Alias from Noutrious' http://www.hawkee.com/snippet/6192/
Drop lists and idea from GWi's Drop Logger http://abstract.cs.washington.edu/~tlin/drops/drops.
*/MKDir DropLogger and paste the script, and This http://pastebin.com/d7ae97bb9 In the folder in $MircDir.

Alias Log { Dialog $iif($Dialog(Drop), -v, -m) Log Log }
Menu Channel,Status { Drop Logger: Log }
Dialog Log {
  ;———
  ;Main Dialog Configurations
  title "RuneScape Drop Logger [/Log]"
  size -1 -1 253 150
  option dbu
  tab "OverView", 11, 0 -3 253 150
  tab "This Monster", 1
  tab "This Trip", 2
  ;———
  ;"OverView" Tab
  Text "Select Monster:", 4, 65 15 100 50, Tab 11, Center
  Combo 6, 80 30 70 50, Drop Sort, Tab 11, HSbar Center
  Text "Current Monster:", 5, 65 60 100 50, Tab 11, Center
  Edit "", 10, 80 75 70 10, Tab 11, Autohs Read Center
  Button "&Set As Current Monster/Log", 7, 80 45 70 10, Flat Center, Tab 11
  Text "Total Number Of Global Kills:", 8, 40 90 60 30, Tab 11, Center
  Edit "", 9, 40 105 70 10, Tab 11, AutoHs Read Center
  Text "Total Number Of Global Trips:", 31, 120 90 60 30, Tab 11, Center
  Edit "", 32, 120 105 70 10, Tab 11, AutoHs Read Center
  Button "&Close",33, 81 120 70 10, Tab 11, Center Cancel
  ;———
  ;"Current Monster" Tab
  Text "Current Monster Log:", 12, 80 15 100 50, Tab 1, Center
  Edit "", 13, 80 30 100 10, Tab 1, Center Read Multi
  Text "Number of Each drop and (%)Percentage the drop has occured:", 14, 80 45 100 50, Tab 1, Center
  Combo 15, 70 60 120 10, Drop Sort Center AutoVs AutoHs Read Multi, Tab 1
  Text "Trips to this monster:", 16, 80 73 100 10, Tab 1, Center
  Edit "", 17, 80 87 100 10, Tab 1, Center AutoHs Read
  Text "Kills of this monster:", 29, 80 103 100 10, Tab 1, Center
  Edit "", 30, 80 120 100 10, Tab 1, Center AutoHs Read
  ;———
  ;"Current Trip" Tab
  Text "Current Trip Number:", 19, 80 15 100 50, Tab 2, Center
  Edit "", 20, 80 30 100 10, Tab 2, Center Read Multi
  Text "Kills This Trip:", 21, 75 45 100 10, Tab 2, Center
  Edit "", 22, 100 60 50 10, Tab 2, Center Read
  Text "Number of each drop and (%)Percentage the drop has occured:", 23, 80 75 100 50, Tab 2, Center
  Combo 24, 80 90 100 10, Drop Sort Center AutoVs AutoHs Read Multi, Tab 2
  Text "Drop Obtained:", 25, 100 105 50 10, Center, Tab 2
  Combo 26, 80 117 100 10, Tab 2, Drop Center Sort AutoVs AutoHs Read
  Button "&Increase", 27, 80 133 50 10, Center, Tab 2
  Button "&Trip Complete", 28, 130 133 50 10, Center, Tab 2
}
on *:Dialog:Log:Init:0: {
  DFrequencies
  SetDrops
  SetMonsters
  Did -o $Dname 6 %Current.Monster.Log
  Did -a $Dname 9 %Total.Kills.Done
  Did -a $Dname 10,13 %Current.Monster.Log
  Did -a $Dname 17 $iif(!%Kills.Done. [ $+ [ %Current.Monster.Log ] ],0,%Trips.Done. [ $+ [ %Current.Monster.Log ] ])
  Did -a $Dname 30 $iif(!%Trips.Done. [ $+ [ %Current.Monster.Log ] ],0,%Trips.Done. [ $+ [ %Currrent.Monster.Log ] ])
  Did -a $Dname 20,32 $iif(!%Total.Trips.Done,0,%Total.Trips.Done)
  Did -a $Dname 22 0
  Did -a $Dname 30 %Kills.Done. [ $+ [ %Current.Monster.Log ] ]
}
on *:Dialog:Log:Sclick:*: {
  if ($Did == 7) { Set %Current.Monster.Log $Did(Log,6) | Did -ra $Dname 10,13 %Current.Monster.Log | Did -ra $DName 17,30 0 | Did -r $Dname 15,24,26 | SetDrops | DFrequencies }
  if ($Did == 27) { Inc %Kills.Trip | Inc %Total.Kills.Done | Inc %Kills.Done. [ $+ [ %Current.Monster.Log ] ] | Did -ra $Dname 22 %Kills.Trip | Did -ra $Dname 9 %Total.Kills.Done | Did -ra $Dname 30 %Kills.Done. [ $+ [ %Current.Monster.Log ] ] | inc %Drop. [ $+ [ %Current.Monster.Log ] $+ [ . ] $+  [ $Did(Log,26) ] ] | DFrequencies }
  if ($Did == 28) { Inc %Total.Trips.Done | Set %Kills.Trip 0 | Did -ra $Dname 22 %Kills.Trip | Did -ra $Dname 20,32 %Total.Trips.Done | Inc %Trips.Done. [ $+ [ %Current.Monster.Log ] ] | Did -ra $Dname 17 %Trips.Done. [ $+ [ %Current.Monster.Log ] ] }
}
Alias -l SetMonsters {
  Var %i 0
  Did -d Log 6 1
  While (%i <= $Ini(DropLogger\LoggerFile.ini,Monsters,0)) {
    Inc %i
    Did -a Log 6 $Ini(DropLogger\LoggerFile.ini,Monsters,%i)
  }
}

alias -l SetDrops { 
  Var %x $READIni(DropLogger\LoggerFile.ini,Drops,%Current.Monster.Log)
  Var %z $NumTok(%x,124)
  While (%z > 0) {
    Did -a Log 26 $GetTok(%x,%z,124)
    Dec %z
  }
  Did -c Log 26 1
}
Alias -l DFrequencies {
  Did -r Log 15,24
  Var %x $READIni(DropLogger\LoggerFile.ini,Drops,%Current.Monster.Log)
  Var %z $NumTok(%x,124)
  While (%z > 0) {
    Var %CalcF $Percent(%Drop. [ $+ [ %Current.Monster.Log ] $+ [ . ] $+ [ $GetTok(%x,%z,124) ] ],%Kills.Done. [ $+ [ %Current.Monster.Log ] ], 2).suf
    Did -a Log 15,24 $GetTok(%x,%z,124) $+ ; Frequency: %Drop. [ $+ [ %Current.Monster.Log ] $+ [ . ] $+ [ $GetTok(%x,%z,124) ] ] $+ / $+ %Kills.Done. [ $+ [ %Current.Monster.Log ] ] ( $+ %CalcF $+ )
    Dec %z
  }
  Did -c Log 15,24 1
}

alias -l  percent { $iif($isid,return,echo -at) $round($iif($1 > $2,$calc(100 - $calc($iif($1 > $2,$2 / $1 * 100,$1 / $2 * 100))),$calc($iif($1 > $2,$2 / $1 * 100,$1 / $2 * 100))),$iif($3,$v1,15)) $+ $iif($prop = suf,$chr(37)) }

Comments

Sign in to comment.
poborski   -  May 10, 2011

wat does it do?

 Respond  
Are you sure you want to unfollow this person?
Are you sure you want to delete this?
Click "Unsubscribe" to stop receiving notices pertaining to this post.
Click "Subscribe" to resume notices pertaining to this post.