Mario Kart WIi - Time Trial Manager

By ^Neptune on May 28, 2008

Image
This was simply made because I didn't like running up and down stairs to get my time trials info, so I decided to make something to store it.

This was mostly a pain to make because the coding is so damn boring. I know I could have coded it better with .ini's, but I always have troubles with them.. and they're just horrid to use imo.

Paste into remotes and type /mk or right-click anywhere cand select Mario Kart Wii. Shouldn't be any questions as there is a help editbox at the bottom.

Enjoy!

alias mk {
  dialog $iif($dialog(mkwii),-v,-md) mkwii mkwii 
}
menu * {
  .Mario Kart Wii: dialog $iif($dialog(mkwii),-v,-md) mkwii mkwii
}
dialog mkwii {
  title "Mario Kart Wii"
  size -1 -1 220 145
  option pixels
  combo 1, 10 15 100 70, drop
  box "Cup", 2, 5 0 110 40
  list 3, 10 56 110 60, size
  box "Track", 4, 5 40 120 80
  edit "", 5, 125 15 85 20
  box "Time", 6, 120 0 95 40
  button "Update", 7, 133 45 80 22
  button "Message", 8, 133 69 80 22
  button "Close", 9, 133 92 80 22
  edit "", 10, 5 122 210 20, read
}
on *:DIALOG:mkwii:mouse:*: {
  if ($did == 1) { did -ra $dname 10 Select a cup. }
  if ($did == 3) { did -ra $dname 10 Use this to select a course. }
  if ($did == 5) { did -ra $dname 10 This is your time for the course. }
  if ($did == 7) { did -ra $dname 10 Click this once you have edited your time. }
  if ($did == 8) { did -ra $dname 10 Show the active channel your time. }
  if ($did == 9) { did -ra $dname 10 Close the dialog. }
}
on *:dialog:mkwii:init:0: {
  did -b $dname 3,5,7,8
  did -a $dname 1 Mushroom Cup
  did -a $dname 1 Flower Cup
  did -a $dname 1 Star Cup
  did -a $dname 1 Special Cup
  did -a $dname 1 ---
  did -a $dname 1 Shell Cup
  did -a $dname 1 Banana Cup
  did -a $dname 1 Leaf Cup
  did -a $dname 1 Lightning Cup
}
on *:dialog:mkwii:sclick:*: {
  if ($did == 1) {
    did -e $dname 3
    if ($did(1).sel == 1) {
      did -ra $dname 3 Luigi Circuit
      did -a $dname 3 Moo Moo Meadows
      did -a $dname 3 Mushroom Gorge
      did -a $dname 3 Toad's Factory
    }
    if ($did(1).sel == 2) {
      did -ra $dname 3 Mario Circuit
      did -a $dname 3 Coconut Mall
      did -a $dname 3 DK's Snowboard Cross
      did -a $dname 3 Wario's Gold Mine
    }
    if ($did(1).sel == 3) {
      did -ra $dname 3 Daisy Circuit
      did -a $dname 3 Koopa Cape
      did -a $dname 3 Maple Treeway
      did -a $dname 3 Grumble Volcano
    }
    if ($did(1).sel == 4) {
      did -ra $dname 3 Dry Dry Ruins
      did -a $dname 3 Moonview Highway
      did -a $dname 3 Bowser's Castle
      did -a $dname 3 Rainbow Road
    }
    if ($did(1).sel == 5) {
      did -b $dname 3,5,7,8
      did -r $dname 3
    }
    if ($did(1).sel == 6) {
      did -ra $dname 3 GCN Peach Beach
      did -a $dname 3 DS Yoshi Falls
      did -a $dname 3 SNES Ghost Valley 2
      did -a $dname 3 N64 Mario Raceway
    }
    if ($did(1).sel == 7) {
      did -ra $dname 3 N64 Sherbert Land
      did -a $dname 3 GBA Shy Guy Beach
      did -a $dname 3 DS Delfino Square
      did -a $dname 3 GCN Waluigi Stadium
    }
    if ($did(1).sel == 8) {
      did -ra $dname 3 DS Desert Hills
      did -a $dname 3 GBA Bowser Castle 3
      did -a $dname 3 N64 DK's Jungle Parkway
      did -a $dname 3 GCN Mario Circuit
    }
    if ($did(1).sel == 9) {
      did -ra $dname 3 SNES Mario Circuit 3
      did -a $dname 3 DS Peach Garden
      did -a $dname 3 GCN DK Mountain
      did -a $dname 3 N64 Bowser's Castle
    }
  }
  if ($did == 7) {
    if (!$did(5).text) {
      noop $input(You did not enter any data.,uwo,Error!)
    }
    else {
      if ($did(1).sel == 1) {
        if ($did(3).sel == 1) { write -l1 MKWii.txt $did(5).text }
        if ($did(3).sel == 2) { write -l2 MKWii.txt $did(5).text }
        if ($did(3).sel == 3) { write -l3 MKWii.txt $did(5).text }
        if ($did(3).sel == 4) { write -l4 MKWii.txt $did(5).text }
      }
      if ($did(1).sel == 2) {
        if ($did(3).sel == 1) { write -l5 MKWii.txt $did(5).text }
        if ($did(3).sel == 2) { write -l6 MKWii.txt $did(5).text }
        if ($did(3).sel == 3) { write -l7 MKWii.txt $did(5).text }
        if ($did(3).sel == 4) { write -l8 MKWii.txt $did(5).text }
      }
      if ($did(1).sel == 3) {
        if ($did(3).sel == 1) { write -l9 MKWii.txt $did(5).text }
        if ($did(3).sel == 2) { write -l10 MKWii.txt $did(5).text }
        if ($did(3).sel == 3) { write -l11 MKWii.txt $did(5).text }
        if ($did(3).sel == 4) { write -l12 MKWii.txt $did(5).text }
      }
      if ($did(1).sel == 4) {
        if ($did(3).sel == 1) { write -l13 MKWii.txt $did(5).text }
        if ($did(3).sel == 2) { write -l14 MKWii.txt $did(5).text }
        if ($did(3).sel == 3) { write -l15 MKWii.txt $did(5).text }
        if ($did(3).sel == 4) { write -l16 MKWii.txt $did(5).text }
      }
      if ($did(1).sel == 6) {
        if ($did(3).sel == 1) { write -l17 MKWii.txt $did(5).text }
        if ($did(3).sel == 2) { write -l18 MKWii.txt $did(5).text }
        if ($did(3).sel == 3) { write -l19 MKWii.txt $did(5).text }
        if ($did(3).sel == 4) { write -l20 MKWii.txt $did(5).text }
      }
      if ($did(1).sel == 7) {
        if ($did(3).sel == 1) { write -l21 MKWii.txt $did(5).text }
        if ($did(3).sel == 2) { write -l22 MKWii.txt $did(5).text }
        if ($did(3).sel == 3) { write -l23 MKWii.txt $did(5).text }
        if ($did(3).sel == 4) { write -l24 MKWii.txt $did(5).text }
      }
      if ($did(1).sel == 8) {
        if ($did(3).sel == 1) { write -l25 MKWii.txt $did(5).text }
        if ($did(3).sel == 2) { write -l26 MKWii.txt $did(5).text }
        if ($did(3).sel == 3) { write -l27 MKWii.txt $did(5).text }
        if ($did(3).sel == 4) { write -l28 MKWii.txt $did(5).text }
      }
      if ($did(1).sel == 9) {
        if ($did(3).sel == 1) { write -l29 MKWii.txt $did(5).text }
        if ($did(3).sel == 2) { write -l30 MKWii.txt $did(5).text }
        if ($did(3).sel == 3) { write -l31 MKWii.txt $did(5).text }
        if ($did(3).sel == 4) { write -l32 MKWii.txt $did(5).text }
      }
    }
  }
  if ($did == 8) {
    if (!$did(5).text) {
      noop $input(There is no data to message.,uwo,Error!)
    }
    else {
      echo -a 3My 4Mario Kart Wii 3time trial for 4 $+ $did(3).seltext 3is 4 $+ $did(5).text
    }
  }
  if ($did == 9) {
    dialog -x $dname
  }
}
on *:dialog:mkwii:dclick:*: {
  if ($did == 3) {
    did -e $dname 5,7,8
    if ($did(1).sel == 1) {
      if ($did(3).sel == 1) { did -ra $dname 5 $read(MKWii.txt, 1) }
      if ($did(3).sel == 2) { did -ra $dname 5 $read(MKWii.txt, 2) }
      if ($did(3).sel == 3) { did -ra $dname 5 $read(MKWii.txt, 3) }
      if ($did(3).sel == 4) { did -ra $dname 5 $read(MKWii.txt, 4) }
    }
    elseif ($did(1).sel == 2) {
      if ($did(3).sel == 1) { did -ra $dname 5 $read(MKWii.txt, 5) }
      if ($did(3).sel == 2) { did -ra $dname 5 $read(MKWii.txt, 6) }
      if ($did(3).sel == 3) { did -ra $dname 5 $read(MKWii.txt, 7) }
      if ($did(3).sel == 4) { did -ra $dname 5 $read(MKWii.txt, 8) }
    }
    elseif ($did(1).sel == 3) {
      if ($did(3).sel == 1) { did -ra $dname 5 $read(MKWii.txt, 9) }
      if ($did(3).sel == 2) { did -ra $dname 5 $read(MKWii.txt, 10) }
      if ($did(3).sel == 3) { did -ra $dname 5 $read(MKWii.txt, 11) }
      if ($did(3).sel == 4) { did -ra $dname 5 $read(MKWii.txt, 12) }
    }
    elseif ($did(1).sel == 4) {
      if ($did(3).sel == 1) { did -ra $dname 5 $read(MKWii.txt, 13) }
      if ($did(3).sel == 2) { did -ra $dname 5 $read(MKWii.txt, 14) }
      if ($did(3).sel == 3) { did -ra $dname 5 $read(MKWii.txt, 15) }
      if ($did(3).sel == 4) { did -ra $dname 5 $read(MKWii.txt, 16) }
    }
    elseif ($did(1).sel == 6) {
      if ($did(3).sel == 1) { did -ra $dname 5 $read(MKWii.txt, 17) }
      if ($did(3).sel == 2) { did -ra $dname 5 $read(MKWii.txt, 18) }
      if ($did(3).sel == 3) { did -ra $dname 5 $read(MKWii.txt, 19) }
      if ($did(3).sel == 4) { did -ra $dname 5 $read(MKWii.txt, 20) }
    }
    elseif ($did(1).sel == 7) {
      if ($did(3).sel == 1) { did -ra $dname 5 $read(MKWii.txt, 21) }
      if ($did(3).sel == 2) { did -ra $dname 5 $read(MKWii.txt, 22) }
      if ($did(3).sel == 3) { did -ra $dname 5 $read(MKWii.txt, 23) }
      if ($did(3).sel == 4) { did -ra $dname 5 $read(MKWii.txt, 24) }
    }
    elseif ($did(1).sel == 8) {
      if ($did(3).sel == 1) { did -ra $dname 5 $read(MKWii.txt, 25) }
      if ($did(3).sel == 2) { did -ra $dname 5 $read(MKWii.txt, 26) }
      if ($did(3).sel == 3) { did -ra $dname 5 $read(MKWii.txt, 27) }
      if ($did(3).sel == 4) { did -ra $dname 5 $read(MKWii.txt, 28) }
    }
    elseif ($did(1).sel == 9) {
      if ($did(3).sel == 1) { did -ra $dname 5 $read(MKWii.txt, 29) }
      if ($did(3).sel == 2) { did -ra $dname 5 $read(MKWii.txt, 30) }
      if ($did(3).sel == 3) { did -ra $dname 5 $read(MKWii.txt, 31) }
      if ($did(3).sel == 4) { did -ra $dname 5 $read(MKWii.txt, 32) }
    }
  }
}
on *:TEXT:!time*:?: {
  if ($nick == $me) {
    halt
  }
  if (!$2) {
    .notice $nick You did not specify a course!
  }
  else {
    var %mes = .notice $nick 3My time for4
    if ($2- == Luigi Circuit) { %mes Luigi Circuit 3is4 $read(MKWii.txt, 1) }
    if ($2- == Moo Moo Meadows) { %mes Moo Moo Meadows 3is4 $read(MKWii.txt, 2) }
    if ($2- == Mushroom Gorge) { %mes Mushroom Gorge 3is4 $read(MKWii.txt, 3) }
    if ($2- == Toad's Factory) { %mes Toad's Factory 3is4 $read(MKWii.txt, 4) }
    if ($2- == Mario Circuit) { %mes Mario Circuit 3is4 $read(MKWii.txt, 5) }
    if ($2- == Coconut Mall) { %mes Coconut Mall 3is4 $read(MKWii.txt, 6) }
    if ($2- == DK's Snowboard Cross) { %mes DK's Snowboard Cross 3is4 $read(MKWii.txt, 7) }
    if ($2- == Wario's Gold Mine) { %mes Wario's Gold Mine 3is4 $read(MKWii.txt, 8) }
    if ($2- == Daisy Circuit) { %mes Daisy Circuit 3is4 $read(MKWii.txt, 9) }
    if ($2- == Koopa Cape) { %mes Koopa Cape 3is4 $read(MKWii.txt, 10) }
    if ($2- == Maple Treeway) { %mes Maple Treeway 3is4 $read(MKWii.txt, 11) }
    if ($2- == Grumble Volcano) { %mes Grumble Volcano 3is4 $read(MKWii.txt, 12) }
    if ($2- == Dry Dry Ruins) { %mes Dry Dry Ruins 3is4 $read(MKWii.txt, 13) } 
    if ($2- == Moonview Highway) { %mes Moonview Highway 3is4 $read(MKWii.txt, 14) }
    if ($2- == Bowser's Castle) { %mes Bowser's Castle 3is4 $read(MKWii.txt, 15) }
    if ($2- == Rainbow Road) { %mes Rainbow Road 3is4 $read(MKWii.txt, 16) }
    if ($2- == GCN Peach Beach) { %mes GCN Peach Beach 3is4 $read(MKWii.txt, 17) }
    if ($2- == DS Yoshi Falls) { %mes DS Yoshi Falls 3is4 $read(MKWii.txt, 18) }
    if ($2- == SNES Ghost Valley 2) { %mes SNES Ghost Valley 2 3is4 $read(MKWii.txt, 19) }
    if ($2- == N64 Mario Raceway) { %mes N64 Mario Raceway 3is4 $read(MKWii.txt, 20) }
    if ($2- == N64 Sherbert Land) { %mes N64 Sherbert Land 3is4 $read(MKWii.txt 21) }
    if ($2- == GBA Shy Guy Beach) { %mes GBA Shy Guy Beach 3is4 $read(MKWii.txt, 22) }
    if ($2- == DS Delfino Square) { %mes DS Delfino Square 3is4 $read(MKWii.txt, 23) }
    if ($2- == GCN Waluigi Stadium) { %mes GCN Waluigi Stadium 3is4 $read(MKWii.txt, 24) }
    if ($2- == DS Desert Hills) { %mes DS Desert Hills 3is4 $read(MKWii.txt, 25) }
    if ($2- == GBA Bowser Castle 3) { %mes GBA Bowser Castle 3 3is4 $read(MKWii.txt, 26) }
    if ($2- == N64 DK's Jungle Parkway) { %mes DK's Jungle Parkway 3is4 $read(MKWii.txt, 27) }
    if ($2- == GCN Mario Circuit) { %mes GCN Mario Circuit 3is4 $read(MKWii.txt, 28) }
    if ($2- == SNES Mario Circuit 3) { %mes SNES Mario Circuit 3 3is4 $read(MKWii.txt, 29) }
    if ($2- == DS Peach Garden) { %mes DS Peach Garden 3is4 $read(MKWii.txt, 30) } 
    if ($2- == GCN DK Mountain) { %mes GCN DK Mountain 3is4 $read(MKWii.txt, 31) }
    if ($2- == N64 Bowser's Castle) { %mes N64 Bowser's Castle 3is4 $read(MKWii.txt, 32) }
  }
}
on *:TEXT:!mkwii:?: {
  if ($nick == $me) {
    halt
  }
  .notice $nick To see my time trial times, type '/msg $me !times COURSE'
  .notice $nick Want my ghost data? Type '/msg $me !ghost COURSE'
}
on *:TEXT:!ghost*:?: {
  if ($nick == $me) {
    halt 
  }
  window @MKWii
  echo -t @MKWii 4 $+ $nick 3has asked for your ghost data for 4 $+ $2- 3at 4 $+ $time $+ .
}

Comments

Sign in to comment.
ChiefDean   -  Oct 07, 2010

hows this work? can i play the game?

 Respond  
vaseline28   -  May 31, 2008

@jonesy44 I don\'t think that there is, they\'re necessary to cover the large amount of info in there.

But the \"{\" and \"}\" around each one are not necessary.

if ($did(3).sel == 1) did -ra $dname 5 $read(MKWii.txt, 25)
will work too. Having said that, it\'s minor and really doesn\'t affect the script at all.

 Respond  
Jonesy44   -  May 28, 2008

must be a way of shortening all those IF statements :p

 Respond  
Hawkee   -  May 28, 2008

Cool, another Mario Kart player. Add your friend code to this thread so we can get some Hawkee races going:

http://www.hawkee.com/shop/prod/2945955/#comments

 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.